diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-04 14:13:18 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-04 14:13:18 +0000 |
| commit | 9c024a025ff6544a639291e128e8bf5f8e083d56 (patch) | |
| tree | da13fff81205ecbd42ecd6314f6c3435aa12d7dc /ext/File | |
| parent | 771c8da8a7459d77e0377cf0a891bf62d70cdfa2 (diff) | |
| download | perl-9c024a025ff6544a639291e128e8bf5f8e083d56.tar.gz | |
Thou shalt not (just) match for English error messages.
p4raw-id: //depot/perl@9543
Diffstat (limited to 'ext/File')
| -rw-r--r-- | ext/File/Glob/Glob.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/File/Glob/Glob.pm b/ext/File/Glob/Glob.pm index da331b1be7..b843a167c2 100644 --- a/ext/File/Glob/Glob.pm +++ b/ext/File/Glob/Glob.pm @@ -84,7 +84,7 @@ sub AUTOLOAD { ($constname = $AUTOLOAD) =~ s/.*:://; my $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { - if ($! =~ /Invalid/) { + if ($! =~ /Invalid/ || $!{EINVAL}) { require AutoLoader; $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; |