X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=jpl%2FJNI%2FJNI.pm;h=6ef65e275a7c69607124391daed4202a9fa2923a;hb=11264fdb092cd4874ac94ff361c9d4e20753485f;hp=c91ae9c99830b64082fc42c6ed4efe03c009e8b3;hpb=35ef589f8a1ef7477ab32439f10c2e24fb7e16c2;p=p5sagit%2Fp5-mst-13.2.git diff --git a/jpl/JNI/JNI.pm b/jpl/JNI/JNI.pm index c91ae9c..6ef65e2 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/ || $!{EINVAL}) { + if ($! =~ /Invalid/) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } @@ -318,8 +318,6 @@ JNI - Perl encapsulation of the Java Native Interface =head1 DESCRIPTION -This module provides an encapsulation in Perl of the Java Native Interface. - =head1 Exported constants JNI_ABORT