X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=bc3f3a9f40309e4dc8cd50d84b724e953755b1ba;hb=aafd54016bd01fa5b3dc717dbb9cb267f5376dc4;hp=5fd965ee8f1da9f0d3a950daed7036531d214495;hpb=0bd9d2811cc42417676a1b11b121681c2377d70a;p=spider.git diff --git a/perl/console.pl b/perl/console.pl index 5fd965ee..bc3f3a9f 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -221,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;