From: minima <minima>
Date: Sat, 3 Mar 2001 20:44:08 +0000 (+0000)
Subject: some minor cleanups
X-Git-Tag: R_1_47~150
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=923eb0fbe7e3dc483338c6f2754ab6f413f89c95;p=spider.git

some minor cleanups
---

diff --git a/perl/client.pl b/perl/client.pl
index 57a5d45b..f159ee79 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -82,8 +82,8 @@ sub sig_chld
 	unless ($^O =~ /^MS/i) {
 		$SIG{CHLD} = \&sig_chld;
 		$waitedpid = wait;
+		dbg('connect', "caught $waitedpid");
 	}
-	dbg('connect', "caught $pid");
 }
 
 
diff --git a/perl/winclient.pl b/perl/winclient.pl
index cf0da0a2..55c87992 100755
--- a/perl/winclient.pl
+++ b/perl/winclient.pl
@@ -83,7 +83,7 @@ if ($childpid) {
 			# newline ends all lines except a prompt
 			$lastend = $end;
 			$end = "\n";
-			if ($line =~ /^$call de $mycall\s+\d+-\w\w\w-\d+\s+\d+Z >$/) {
+			if ($line =~ /^$call de $mycall\s+\d+-\w\w\w-\d+\s+\d+Z >$/o) {
 				$end = ' ';
 			}
 			my $begin = ($lastend eq "\n") ? '' : "\n";