X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fwinclient.pl;h=55c87992e82d61f42c569debb4eb382a3241b2d1;hb=923eb0fbe7e3dc483338c6f2754ab6f413f89c95;hp=cf0da0a2ffef78deeceeac86b0356e9a8e3f64e1;hpb=939f8bb6109d870978d7db849136c8a2aa945e4d;p=spider.git

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