X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fclient.pl;h=bc2d46c7f9b2e322b55275f1991b91fd51133e8b;hb=632bda2671a8b0cf73b1a0bffa7b906c8744b14f;hp=642f80c6e0bf6b54604dbdf2758820bc035fde53;hpb=5e29a654c6f9c84d02a1a5c6344dee73835d4fae;p=spider.git

diff --git a/perl/client.pl b/perl/client.pl
index 642f80c6..bc2d46c7 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -428,8 +428,8 @@ if ($connsort eq "connect") {
 		doconnect($1, $2) if /^\s*co\w*\s+(\w+)\s+(.*)$/io;
 		doabort($1) if /^\s*a\w*\s+(.*)/io;
 		dotimeout($1) if /^\s*t\w*\s+(\d+)/io;
-		dochat($1, $2) if /\s*\'(.*)\'\s+\'(.*)\'/io;
-		if (/\s*cl\w+\s+(.*)/io) {
+		dochat($1, $2) if /^\s*\'(.*)\'\s+\'(.*)\'/io;
+		if (/^\s*cl\w+\s+(.*)/io) {
 			doclient($1);
 			last;
 		}