From 9c024a025ff6544a639291e128e8bf5f8e083d56 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 4 Apr 2001 14:13:18 +0000
Subject: [PATCH] Thou shalt not (just) match for English error messages.

p4raw-id: //depot/perl@9543
---
 ext/File/Glob/Glob.pm      | 2 +-
 jpl/JNI/JNI.pm             | 2 +-
 os2/OS2/Process/Process.pm | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ext/File/Glob/Glob.pm b/ext/File/Glob/Glob.pm
index da331b1..b843a16 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;
diff --git a/jpl/JNI/JNI.pm b/jpl/JNI/JNI.pm
index c3ade26..cee1779 100644
--- a/jpl/JNI/JNI.pm
+++ b/jpl/JNI/JNI.pm
@@ -198,7 +198,7 @@ sub AUTOLOAD {
     ($constname = $AUTOLOAD) =~ s/.*:://;
     my $val = constant($constname, @_ ? $_[0] : 0);
     if ($! != 0) {
-	if ($! =~ /Invalid/) {
+	if ($! =~ /Invalid/ || $!{EINVAL}) {
 	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
 	    goto &AutoLoader::AUTOLOAD;
 	}
diff --git a/os2/OS2/Process/Process.pm b/os2/OS2/Process/Process.pm
index 88de2bf..b862885 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;
 	}
-- 
2.7.4