summaryrefslogtreecommitdiff
path: root/os2
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-04-04 14:13:18 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-04-04 14:13:18 +0000
commit9c024a025ff6544a639291e128e8bf5f8e083d56 (patch)
treeda13fff81205ecbd42ecd6314f6c3435aa12d7dc /os2
parent771c8da8a7459d77e0377cf0a891bf62d70cdfa2 (diff)
downloadperl-9c024a025ff6544a639291e128e8bf5f8e083d56.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.pm2
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;
}