X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=bc3f3a9f40309e4dc8cd50d84b724e953755b1ba;hb=512ad102c88b3bd56a3435c72ad5288822af20fa;hp=d5224cf9900c8db9d1d6e75dc6a103ad08fac545;hpb=5947a205b3f36462fc1fe5ed5a08c7d8293ab744;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index d5224cf9..bc3f3a9f 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -32,8 +32,6 @@ use DXUtil;
 use IO::File;
 use Curses;
 
-use Carp qw{cluck};
-
 use Console;
 
 #
@@ -223,6 +221,11 @@ sub rec_socket
 		} elsif ($sort && $sort eq 'Z') { # end, disconnect, go, away .....
 			cease(0);
 		}	  
+		# ******************************************************
+		# ******************************************************
+		# any other sorts that might happen are silently ignored.
+		# ******************************************************
+		# ******************************************************
 	}
 	$top->refresh();
 	$lasttime = time;