diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-26 03:15:33 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-26 03:15:33 +0000 |
| commit | 265f5c4a1b0b933305c553dbf2bf285c59261bc3 (patch) | |
| tree | bf6d8792c6d0bb8807b4400b4a22f1233709b7c7 /ext | |
| parent | 94672f70d8cd80d85af601db230d5a82be7c7f28 (diff) | |
| download | perl-265f5c4a1b0b933305c553dbf2bf285c59261bc3.tar.gz | |
INSTALL =~ s/5.006/5.6/; delay loading Errno until needed
(%! has the necessary magic); misc typos
p4raw-id: //depot/perl@3754
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, 3 insertions, 6 deletions
diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm index 90a82b8fca..7df8518c1d 100644 --- a/ext/DB_File/DB_File.pm +++ b/ext/DB_File/DB_File.pm @@ -15,7 +15,6 @@ require 5.003 ; use strict; use Carp; -use Errno; require Tie::Hash; @DB_File::HASHINFO::ISA = qw(Tie::Hash); @@ -197,7 +196,7 @@ sub AUTOLOAD { ($constname = $AUTOLOAD) =~ s/.*:://; my $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { - if ($!{EINVAL} || $! =~ /Invalid/) { + if ($! =~ /Invalid/ || $!{EINVAL}) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm index 664c2cb28d..0f70840075 100644 --- a/ext/Fcntl/Fcntl.pm +++ b/ext/Fcntl/Fcntl.pm @@ -44,7 +44,6 @@ 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); @@ -123,7 +122,7 @@ sub AUTOLOAD { (my $constname = $AUTOLOAD) =~ s/.*:://; my $val = constant($constname, 0); if ($! != 0) { - if ($!{EINVAL} || $! =~ /Invalid/) { + if ($! =~ /Invalid/ || $!{EINVAL}) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } diff --git a/ext/GDBM_File/GDBM_File.pm b/ext/GDBM_File/GDBM_File.pm index 1d90a341f5..99ad60b70e 100644 --- a/ext/GDBM_File/GDBM_File.pm +++ b/ext/GDBM_File/GDBM_File.pm @@ -43,7 +43,6 @@ use strict; use vars qw($VERSION @ISA @EXPORT $AUTOLOAD); require Carp; -use Errno; require Tie::Hash; require Exporter; use AutoLoader; @@ -67,7 +66,7 @@ sub AUTOLOAD { ($constname = $AUTOLOAD) =~ s/.*:://; my $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { - if ($!{EINVAL} || $! =~ /Invalid/) { + if ($! =~ /Invalid/ || $!{EINVAL}) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } |