diff options
| author | oracle@pcr8.pcr.com <oracle@pcr8.pcr.com> | 1999-07-19 14:39:13 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-21 11:40:39 +0000 |
| commit | 98a6f11e5caa62333286d697f0f5df32e778e17a (patch) | |
| tree | b41b527557c817d09a1e04db5c7eda1f3277cc93 /ext | |
| parent | 578789a778068710d29ac6362e21ea2ead734321 (diff) | |
| download | perl-98a6f11e5caa62333286d697f0f5df32e778e17a.tar.gz | |
Use Errno more extensively so that error
messages are more portable (another way
would be to muck around with LC_MESSAGES).
Problem reported in
To: perl5-porters@perl.org
Subject: [ID 19990719.003] LC_MESSAGES breaks h2xs autoloaded constants on AIX 4.1.4
Message-Id: <9907192239.AA44990@pcr8.pcr.com>
p4raw-id: //depot/cfgperl@3716
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DB_File/DB_File.pm | 3 | ||||
| -rw-r--r-- | ext/Fcntl/Fcntl.pm | 3 | ||||
| -rw-r--r-- | ext/GDBM_File/GDBM_File.pm | 3 |
3 files changed, 6 insertions, 3 deletions
diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm index 7dd1d26360..90a82b8fca 100644 --- a/ext/DB_File/DB_File.pm +++ b/ext/DB_File/DB_File.pm @@ -15,6 +15,7 @@ require 5.003 ; use strict; use Carp; +use Errno; require Tie::Hash; @DB_File::HASHINFO::ISA = qw(Tie::Hash); @@ -196,7 +197,7 @@ sub AUTOLOAD { ($constname = $AUTOLOAD) =~ s/.*:://; my $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { - if ($! =~ /Invalid/) { + if ($!{EINVAL} || $! =~ /Invalid/) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm index 00f834d223..664c2cb28d 100644 --- a/ext/Fcntl/Fcntl.pm +++ b/ext/Fcntl/Fcntl.pm @@ -44,6 +44,7 @@ what constants are implemented in your system. use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD); +use Errno; require Exporter; require DynaLoader; @ISA = qw(Exporter DynaLoader); @@ -122,7 +123,7 @@ sub AUTOLOAD { (my $constname = $AUTOLOAD) =~ s/.*:://; my $val = constant($constname, 0); if ($! != 0) { - if ($! =~ /Invalid/) { + if ($!{EINVAL} || $! =~ /Invalid/) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } diff --git a/ext/GDBM_File/GDBM_File.pm b/ext/GDBM_File/GDBM_File.pm index aff01527dc..1d90a341f5 100644 --- a/ext/GDBM_File/GDBM_File.pm +++ b/ext/GDBM_File/GDBM_File.pm @@ -43,6 +43,7 @@ use strict; use vars qw($VERSION @ISA @EXPORT $AUTOLOAD); require Carp; +use Errno; require Tie::Hash; require Exporter; use AutoLoader; @@ -66,7 +67,7 @@ sub AUTOLOAD { ($constname = $AUTOLOAD) =~ s/.*:://; my $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { - if ($! =~ /Invalid/) { + if ($!{EINVAL} || $! =~ /Invalid/) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } |