some minor cleanups

[spider.git] / perl / winclient.pl

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