From 923eb0fbe7e3dc483338c6f2754ab6f413f89c95 Mon Sep 17 00:00:00 2001 From: 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