added logging

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index b8129cbb384cd0d7c8d8ea7872460586b9e3f627..cff140b2eb41dba45ee142f7f08891f3066f2e44 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -102,7 +102,7 @@ sub rec_socket
           my $snl = $mynl;
           my $newsavenl = "";
           $snl = "" if $mode == 0;
-          if ($mode && $line =~ />$/) {
+          if ($mode == 2 && $line =~ />$/) {
             $newsavenl = $snl;
                 $snl = ' ';
           }