X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fclient.pl;h=91d4add615bf049cc2fbaa3380c0c99437878a83;hb=f7ce6f45eae627c1368ffea0e1e56e84fec676be;hp=6327ee5fd1c86ac61f648a033755c28a545d9e1f;hpb=92252919695d703a2edd5b76d2f8237d5ac55062;p=spider.git

diff --git a/perl/client.pl b/perl/client.pl
index 6327ee5f..91d4add6 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -147,7 +147,13 @@ sub rec_socket
 			$buffered = $line;	# set buffered or unbuffered
 		} elsif ($sort eq 'Z') { # end, disconnect, go, away .....
 			cease(0);
-		}	  
+		} 
+
+		# ******************************************************
+		# ******************************************************
+		# any other sorts that might happen are silently ignored.
+		# ******************************************************
+		# ******************************************************
 	}
 	$lasttime = time; 
 }