From 923eb0fbe7e3dc483338c6f2754ab6f413f89c95 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 3 Mar 2001 20:44:08 +0000
Subject: [PATCH] some minor cleanups

---
 perl/client.pl    | 2 +-
 perl/winclient.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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";
-- 
2.43.0