From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 13 Nov 1999 16:29:37 +0000 (+0000)
Subject: $Config{myarchname} is not a good architecture identifier
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8bc9d5905854a266b70e2103e09a997741ac5d52;p=p5sagit%2Fp5-mst-13.2.git

$Config{myarchname} is not a good architecture identifier
because it may contain host/node identification like
CPU serial numbers.

p4raw-id: //depot/cfgperl@4561
---

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index c0598a4..7f884a8 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -180,8 +180,9 @@ use Exporter ();
 use Config;
 use strict;
 
-\$Config{'myarchname'} eq "$Config{'myarchname'}" or
-	die "Errno architecture ($Config{'myarchname'}) does not match executable architecture (\$Config{'myarchname'})";
+"\$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'})";
 
 \$VERSION = "$VERSION";
 \@ISA = qw(Exporter);