[ID 19991112.004] Bug in IO::Socket (patch included)

To: perl5-porters@perl.org
Cc: gbarr@pobox.com
Message-Id: <m3emdvw9hp.fsf@sgifford.tir.com>

p4raw-id: //depot/cfgperl@4565

diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm
index 5cf9e72..0e115a5 100644 (file)
--- a/ext/IO/lib/IO/Socket.pm
+++ b/ext/IO/lib/IO/Socket.pm
@@ -169,6 +169,8 @@ sub accept {
        }
        $peer = accept($new,$sock) || undef;
     };
+    croak "$@"
+        if ($@ and $fh);
 
     return wantarray ? defined $peer ? ($new, $peer)
                                     : ()