mv HTTPMsg to AsyncMsg, add 'raw' method

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 9251a1208f250c004217d0053a28d29db68a67e0..83c82be6e1a70bcb04433187b1df6ca020d3046d 100644 (file)
--- 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;