X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=83c82be6e1a70bcb04433187b1df6ca020d3046d;hb=9fc2ec17088fbff22e825133a4b9b3efe5384df3;hp=9251a1208f250c004217d0053a28d29db68a67e0;hpb=1ec21f9257e85c03626d7d1b1d805b7b8e988986;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 9251a120..83c82be6 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -506,9 +506,9 @@ sub dequeue
 	my $conn = shift;
 	return if $conn->{disconnecting};
 	
-	if ($conn->{msg} =~ /\n/) {
-		my @lines = split /\r?\n/, $conn->{msg};
-		if ($conn->{msg} =~ /\n$/) {
+	if ($conn->{msg} =~ /\cJ/) {
+		my @lines = split /\cM?\cJ/, $conn->{msg};
+		if ($conn->{msg} =~ /\cM?\cJ$/) {
 			delete $conn->{msg};
 		} else {
 			$conn->{msg} = pop @lines;