From: Scott Gifford <sgifford@tir.com>
Date: Fri, 12 Nov 1999 18:55:30 +0000 (-0500)
Subject: [ID 19991112.004] Bug in IO::Socket (patch included)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6688c047a9590c3f89dc0c1c9d684b235df668c4;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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)
     	    	    	    	     : ()