X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=75632aa8d35726fbf44094b3f526733926ae98fb;hb=c961a6af6d9aec8eba4d58803f890fc514a109cc;hp=bf747b8631b5de32424eebd7dc3b39ef0abd5b8f;hpb=fe322eb02369fded6defe0f3fa7ae6530496ef9c;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index bf747b86..75632aa8 100755
--- 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);
 		}	  
 	}