From: minima <minima>
Date: Sat, 4 Nov 2000 01:42:19 +0000 (+0000)
Subject: slight change to echo logic in perl client
X-Git-Tag: R_1_45~44
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=9a1ffd3bd057a47c24e46f380d35aebf29453f93;p=spider.git

slight change to echo logic in perl client
---

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