[libinline-java-perl] 46/398: added some stuff for JNI support. The config option USE_JNI is reserved for future use.

[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 832389a4c7c763756aed0859c6dc42b9c0470d38
Author: patrick <>
Date:   Tue Mar 27 20:28:23 2001 +0000

    added some stuff for JNI support. The config option USE_JNI is reserved for future use.
---
 Java.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/Java.pm b/Java.pm
index adc44af..ee7a60f 100644
--- a/Java.pm
+++ b/Java.pm
@@ -153,6 +153,9 @@ sub _validate {
 		if ($key eq 'BIN'){
 		    $o->{Java}->{$key} = $value ;
 		}
+		elsif ($key eq 'USE_JNI'){
+		    $o->{Java}->{$key} = $value ;
+		}
 		elsif ($key eq 'CLASSPATH'){
 		    $o->{Java}->{$key} = $value ;
 		}
@@ -179,6 +182,10 @@ sub _validate {
 		}
 	}
 
+	if ($o->{Java}->{USE_JNI}){
+		$o->boot_jni() ;
+	}
+
 	$o->set_classpath($install) ;
 	$o->set_java_bin() ;
 
@@ -186,6 +193,16 @@ sub _validate {
 }
 
 
+sub boot_jni {
+	my $o = shift ;
+
+	require DynaLoader ;
+	@Inline::Java::ISA = qw(DynaLoader) ;
+
+	Inline::Java->bootstrap($Inline::Java::VERSION) ;
+}
+
+
 sub set_classpath {
 	my $o = shift ;
 	my $path = shift ;

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