diff options
| author | Scott Gifford <sgifford@tir.com> | 1999-11-12 13:55:30 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 17:58:54 +0000 |
| commit | 6688c047a9590c3f89dc0c1c9d684b235df668c4 (patch) | |
| tree | 83065e2a230ce313e5ed7f29c2709962f8f28cf1 /ext | |
| parent | 8f9bf0bfe2a21cd688795a0fff8771c2e801fd31 (diff) | |
| download | perl-6688c047a9590c3f89dc0c1c9d684b235df668c4.tar.gz | |
[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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/Socket.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm index 5cf9e72919..0e115a5633 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) : () |