diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 16:29:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 16:29:37 +0000 |
| commit | 8bc9d5905854a266b70e2103e09a997741ac5d52 (patch) | |
| tree | 19de64e13d2a6cc5cdbd12418676c9703d327fbb /ext | |
| parent | 1eeb0f31cd73d85a0db15ba3ace4e4d1691c4226 (diff) | |
| download | perl-8bc9d5905854a266b70e2103e09a997741ac5d52.tar.gz | |
$Config{myarchname} is not a good architecture identifier
because it may contain host/node identification like
CPU serial numbers.
p4raw-id: //depot/cfgperl@4561
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index c0598a4acd..7f884a8eed 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); |