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 | |
| 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')
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 2 | ||||
| -rw-r--r-- | ext/IO/lib/IO/Socket.pm | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index 7f884a8eed..18260a9dca 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -182,7 +182,7 @@ use strict; "\$Config{'archname'}-\$Config{'osvers'}" eq "$Config{'archname'}-$Config{'osvers'}" or - die "Errno architecture ($Config{'archname'}-$Config{'osvers'}) does not match executable architecture (\$Config{'archname'-\$Config{'osvers'})"; + die "Errno architecture ($Config{'archname'}-$Config{'osvers'}) does not match executable architecture (\$Config{'archname'}-\$Config{'osvers'})"; \$VERSION = "$VERSION"; \@ISA = qw(Exporter); 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) : () |