with-authinfo-kludge (accept_loop): Might as well use the loop name.

diff --git a/with-authinfo-kludge b/with-authinfo-kludge
index 2ba8969..950ea3b 100755 (executable)
--- a/with-authinfo-kludge
+++ b/with-authinfo-kludge
@@ -772,7 +772,7 @@ sub accept_loop () {
     elsif ($! == EINTR) { next SELECT; }
     else {  sysfail "select failed: $!"; }
     FD: for my $fd (keys %SERVMAP) {
-      next unless vec $rfd_out, $fd, 1;
+      next FD unless vec $rfd_out, $fd, 1;
       my ($s, $a, $sk) = @{$SERVMAP{$fd}};
       my $nsk;
       unless (accept $nsk, $sk) {