typos in change#4561 and change#4565
Gurusamy Sarathy [Sat, 13 Nov 1999 19:41:46 +0000 (19:41 +0000)]
p4raw-link: @4565 on //depot/cfgperl: 6688c047a9590c3f89dc0c1c9d684b235df668c4
p4raw-link: @4561 on //depot/cfgperl: 8bc9d5905854a266b70e2103e09a997741ac5d52

p4raw-id: //depot/perl@4575

ext/Errno/Errno_pm.PL
ext/IO/lib/IO/Socket.pm

index 7f884a8..18260a9 100644 (file)
@@ -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);
index 0e115a5..01cdc40 100644 (file)
@@ -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)
                                     : ()