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

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index 7f884a8..18260a9 100644 (file)
--- 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 0e115a5..01cdc40 100644 (file)
--- 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)
                                     : ()