some minor cleanups

diff --git a/perl/client.pl b/perl/client.pl
index 57a5d45b0fa4ea373ac434a08d9c2b623687febe..f159ee79ed200153d39cf0e9b01631a9aadec35d 100755 (executable)
--- 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 cf0da0a2ffef78deeceeac86b0356e9a8e3f64e1..55c87992e82d61f42c569debb4eb382a3241b2d1 100755 (executable)
--- 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";