diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-13 19:41:46 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-13 19:41:46 +0000 |
| commit | 81be85b825fc39c8f8e4c3fb4748df6a7fa34de4 (patch) | |
| tree | 274aa87c60d1622ad1dc7cf279972afd8b79d524 /ext/IO | |
| parent | 091c0eb7afda954d4b458ffef52b90ee0ff8afe5 (diff) | |
| download | perl-81be85b825fc39c8f8e4c3fb4748df6a7fa34de4.tar.gz | |
typos in change#4561 and change#4565
p4raw-link: @4565 on //depot/cfgperl: 6688c047a9590c3f89dc0c1c9d684b235df668c4
p4raw-link: @4561 on //depot/cfgperl: 8bc9d5905854a266b70e2103e09a997741ac5d52
p4raw-id: //depot/perl@4575
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/lib/IO/Socket.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm index 0e115a5633..01cdc40cce 100644 --- a/ext/IO/lib/IO/Socket.pm +++ b/ext/IO/lib/IO/Socket.pm @@ -169,8 +169,7 @@ sub accept { } $peer = accept($new,$sock) || undef; }; - croak "$@" - if ($@ and $fh); + croak "$@" if $@ and $sock; return wantarray ? defined $peer ? ($new, $peer) : () |