summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xvest/line_mediator.pl8
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 {