From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 13 Nov 1999 19:41:46 +0000 (+0000)
Subject: typos in change#4561 and change#4565
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=81be85b825fc39c8f8e4c3fb4748df6a7fa34de4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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)
     	    	    	    	     : ()