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

p4raw-id: //depot/perl@9543
---
 jpl/JNI/JNI.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'jpl')

diff --git a/jpl/JNI/JNI.pm b/jpl/JNI/JNI.pm
index c3ade26ff7..cee17791cc 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;
 	}
-- 
cgit v1.2.1