diff options
Diffstat (limited to 'utils/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 5bd9b474de..bd0ba16f46 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -425,7 +425,6 @@ else{ # will want Carp. print PM <<'END'; use Carp; -use Errno; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD); END } @@ -478,7 +477,7 @@ sub AUTOLOAD { croak "&$module::constant not defined" if \$constname eq 'constant'; my \$val = constant(\$constname, \@_ ? \$_[0] : 0); if (\$! != 0) { - if (\$!{EINVAL} || \$! =~ /Invalid/) { + if (\$! =~ /Invalid/ || \$!{EINVAL}) { \$AutoLoader::AUTOLOAD = \$AUTOLOAD; goto &AutoLoader::AUTOLOAD; } |