*** empty log message ***

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index 66c7b0927337d88443097fb62b2c1daa1cc5dce9..bb3c4829a60ca956175b5439d12e75dd590a9aa2 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -108,7 +108,7 @@ sub rec_socket
                        my $snl = $mynl;
                        my $newsavenl = "";
                        $snl = "" if $mode == 0;
-                       $snl = "\r\n" if $mode == 2;
+                       $snl = "\n" if $mode == 2;
                        if ($mode == 2 && $line =~ />$/) {
                                $newsavenl = $snl;
                                $snl = ' ';