sorted abort

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 74c64ec7c70da7e92dd7c9015010110d8bdcf9b1..774db635e627f0aeae5cc24fb7da8ce00f63116e 100644 (file)
--- 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 {