diff options
-rwxr-xr-x | vest/line_mediator.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/vest/line_mediator.pl b/vest/line_mediator.pl index 87a73590..acb9a036 100755 --- a/vest/line_mediator.pl +++ b/vest/line_mediator.pl @@ -19,7 +19,7 @@ my @c1; if (scalar @ARGV) { do { push @c1,shift - } while $c1[$#c1] ne '--'; + } while scalar @ARGV && $c1[$#c1] ne '--'; } pop @c1; my @c2=@ARGV; @@ -54,12 +54,10 @@ if ($serial || $snake) { } else { while(<$R1>) { info("1:",$_); - select $W2; - $|=1; - print $_; + lineto($W2,$_); last unless defined ($_=<$R2>); info("2:",$_); - print $W1 $_; + lineto($W1,$_); } } } else { |