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 | 77fbf8300c0850916240e428bb5811b8ab6fb564 (patch) | |
tree | da13fff81205ecbd42ecd6314f6c3435aa12d7dc /os2 | |
parent | 62c50c5e29ffc89aa99ac94f7632819c6596c7d9 (diff) | |
download | perl-77fbf8300c0850916240e428bb5811b8ab6fb564.tar.gz |
Thou shalt not (just) match for English error messages.
p4raw-id: //depot/perl@9543
Diffstat (limited to 'os2')
-rw-r--r-- | os2/OS2/Process/Process.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/os2/OS2/Process/Process.pm b/os2/OS2/Process/Process.pm index 88de2bfad5..b862885b40 100644 --- a/os2/OS2/Process/Process.pm +++ b/os2/OS2/Process/Process.pm @@ -56,7 +56,7 @@ sub AUTOLOAD { ($constname = $AUTOLOAD) =~ s/.*:://; $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { - if ($! =~ /Invalid/) { + if ($! =~ /Invalid/ || $!{EINVAL}) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } |