From 9a1ffd3bd057a47c24e46f380d35aebf29453f93 Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 4 Nov 2000 01:42:19 +0000 Subject: [PATCH] slight change to echo logic in perl client --- perl/client.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/client.pl b/perl/client.pl index b36be347..5e975c15 100755 --- a/perl/client.pl +++ b/perl/client.pl @@ -119,7 +119,7 @@ sub rec_socket if ($buffered) { if (length $outqueue >= $client_buffer_lth) { print $stdout $outqueue; - pop @echo if @echo > $maxecho; + pop @echo while (@echo > $maxecho); push @echo, $outqueue; $outqueue = ""; } @@ -146,7 +146,7 @@ sub rec_socket } elsif ($sort eq 'B') { if ($buffered && $outqueue) { print $stdout $outqueue; - pop @echo if @echo > $maxecho; + pop @echo while(@echo > $maxecho); push @echo, $outqueue; $outqueue = ""; } -- 2.43.0