Fix a couple of typos in the help files for BADDX and BADSPOTTER

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index ff2ca473f82b03451e0f023d7d72d3ee6e9adc5b..5e975c157bf18d903e8a11b3acdef0838cc6340a 100755 (executable)
--- 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 = "";
                        }
@@ -419,7 +419,7 @@ if ($loginreq) {
        $s =~ s/\s+//og;
        $s =~ s/-\d+$//o;            # no ssids!
        cease(0) unless $s && $s gt ' ';
-       unless (iscallsign($s)) {
+       unless (is_callsign($s)) {
                $stdout->print("Sorry, $s is an invalid callsign");
                cease(0);
        }