X-Git-Url: https://git.distorted.org.uk/~mdw/with-authinfo-kludge/blobdiff_plain/9b7b093fd18e648205eab3c717c7b0de3664a71a..e0b2f3277cbedeca090d16552c730eb8d40b638b:/with-authinfo-kludge

diff --git a/with-authinfo-kludge b/with-authinfo-kludge
index 2ba8969..950ea3b 100755
--- 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) {