[libinline-java-perl] 263/398: Fix for JNI croaks

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to tag 0.55
in repository libinline-java-perl.

commit a3a051d049750ebd89a36ecc89c783f7317b7831
Author: patrick_leb <>
Date:   Thu Jan 8 19:18:35 2004 +0000

    Fix for JNI croaks
---
 t/12_callbacks.t | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/t/12_callbacks.t b/t/12_callbacks.t
index 00c1c9b..7f0c9c5 100755
--- a/t/12_callbacks.t
+++ b/t/12_callbacks.t
@@ -16,9 +16,6 @@ use Inline::Java qw(caught) ;
 
 BEGIN {
 	my $cnt = 23 ;
-	if ($ENV{PERL_INLINE_JAVA_JNI}){
-		$cnt-- ;
-	}
 	plan(tests => $cnt) ;
 }
 
@@ -67,12 +64,7 @@ my $t = new t15() ;
 
 		ok($t->perlt()->add(5, 6), 11) ;
 
-		if (! $ENV{PERL_INLINE_JAVA_JNI}){
-			# This a fatal error under JNI since we cannot croak inside callbacks
-			# because there is some Java in the stack (see JNI.xs, jni_callback for
-			# more info).
-			eval {$t->perldummy()} ; ok($@, qr/Can't propagate non-/) ;
-		}
+		eval {$t->perldummy()} ; ok($@, qr/Can't propagate non-/) ;
 
 		$t->mtc_callbacks(20) ;
 		$t->StartCallbackLoop() ;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git