X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=83c82be6e1a70bcb04433187b1df6ca020d3046d;hb=9b65e70322b24190bb5f677ccedcc000ab4625d2;hp=9251a1208f250c004217d0053a28d29db68a67e0;hpb=fd2d8314dd4fcdd7997ef80e7740702e0bad618d;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;