Fixed console to wrap.

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index bf747b8631b5de32424eebd7dc3b39ef0abd5b8f..75632aa8d35726fbf44094b3f526733926ae98fb 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -195,9 +195,9 @@ sub rec_socket
        if (defined $msg) {
                my ($sort, $call, $line) = $msg =~ /^(\w)(\S+)\|(.*)$/;
                
-               if ($sort eq 'D') {
+               if ($sort && $sort eq 'D') {
                        addtotop($line);
-               } elsif ($sort eq 'Z') { # end, disconnect, go, away .....
+               } elsif ($sort && $sort eq 'Z') { # end, disconnect, go, away .....
                        cease(0);
                }         
        }