X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=774db635e627f0aeae5cc24fb7da8ce00f63116e;hb=94d6432422ca8bdd0918789ce2335a44b29faa81;hp=74c64ec7c70da7e92dd7c9015010110d8bdcf9b1;hpb=04ff9a5a6bf8f3ab55bc2922b76a44e2798af8ee;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 74c64ec7..774db635 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -244,9 +244,9 @@ sub _rcv {                     # Complement to _send
 		if ($bytes_read > 0) {
 			if ($msg =~ /\n/) {
 				@lines = split /\r?\n/, $msg;
-				push @lines, ' ' unless @lines;
-				
+				$lines[0] = '' unless @lines;
 				$lines[0] = $conn->{msg} . $lines[0] if exists $conn->{msg};
+				push @lines, ' ' unless @lines;
 				if ($msg =~ /\n$/) {
 					delete $conn->{msg};
 				} else {