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

diff --git a/with-authinfo-kludge b/with-authinfo-kludge
index 2ba8969647574b0523f72f4b59e2e6817f7ffe14..950ea3b07d5aeefd5d1c3bf7b461bb778999e05b 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) {
     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) {
       my ($s, $a, $sk) = @{$SERVMAP{$fd}};
       my $nsk;
       unless (accept $nsk, $sk) {