--- trunk/bin/sack.pl	2009/09/22 21:38:31	25
+++ trunk/bin/sack.pl	2009/09/22 21:45:04	26
@@ -129,7 +129,7 @@
 sub send_sock {
 	my ( $sock, $data ) = @_;
 	my $size   = length $data;
-	warn ">>>> $listen ", $sock->peerhost, " $size bytes";
+	warn ">>>> $listen ", $sock->peerhost, " $size bytes\n";
 	print $sock "$size\n$data" || warn "can't send $size bytes to ", $sock->peerhost;
 }