[libinline-java-perl] 263/398: Fix for JNI croaks
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:12 UTC 2015
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
More information about the Pkg-perl-cvs-commits
mailing list