[libinline-java-perl] 384/398: bug fixes

[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 1c830a10506ff5fb911962e48faad00766109476
Author: patrick_leb <>
Date:   Fri Oct 2 14:21:52 2009 +0000

    bug fixes
---
 Java/Class.pm | 2 +-
 Java/JNI.xs   | 4 ++--
 Makefile.PL   | 9 +++++++++
 README        | 2 --
 4 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/Java/Class.pm b/Java/Class.pm
index 3758386..3047f8d 100644
--- a/Java/Class.pm
+++ b/Java/Class.pm
@@ -329,7 +329,7 @@ sub CastArgument {
 				else {
 					# We want to send a Perl object to the Java side.
 					my $ijp = new Inline::Java::Protocol(undef, $inline) ;
-					my $score = $ijp->__ISA($proto, 'org.perl.inline.java.InlineJavaPerlObject') ;
+					my $score = $ijp->__ISA('org.perl.inline.java.InlineJavaPerlObject', $proto) ;
 					if ($score == -1){
 						croak "$proto is not a kind of org.perl.inline.java.InlineJavaPerlObject" ;
 					}
diff --git a/Java/JNI.xs b/Java/JNI.xs
index 9d410f5..cc359d7 100644
--- a/Java/JNI.xs
+++ b/Java/JNI.xs
@@ -96,7 +96,7 @@ jstring JNICALL jni_callback(JNIEnv *env, jobject obj, jstring cmd){
 	}
 	else{
 		if (count != 2){
-			sprintf(msg, "%s", "Invalid return value from Inline::Java::Callback::InterceptCallback: %d",
+			sprintf(msg, "Invalid return value from Inline::Java::Callback::InterceptCallback: %d",
 				count) ;
 			throw_ije(env, msg) ;
 		}
@@ -257,7 +257,7 @@ DESTROY(this)
 
 	CODE:
 	shutdown_JVM(this) ;
-	free(this) ;
+	safefree(this) ;
 
 
 
diff --git a/Makefile.PL b/Makefile.PL
index 6facefd..6fea382 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -59,6 +59,12 @@ specify your Java 2 SDK installation directory using the J2SDK
 option to Makefile.PL as such:
 
     perl Makefile.PL J2SDK=/path/to/your/j2sdk/installation
+
+You can set the JAVA_HOME environment variable to specify your
+Java 2 SDK installation directory. For example, if you are using
+the CPAN installer you can do:
+
+    JAVA_HOME=/path/to/your/j2sdk/installation cpan Inline::Java
 NO_J2SDK
 		exit(1) ;
 	}
@@ -201,6 +207,9 @@ WriteMakefile(
 		$user_arch => File::Spec->catfile('$(INST_LIBDIR)', $user_arch),
 	},
 	clean => {FILES => "$def_jdk _Inline_test $natives_test $perlinterp_test $obj_dir $server_arch $user_arch java.ts"},
+	($] >= 5.005 ?     ## Add these new keywords supported since 5.005
+		(ABSTRACT_FROM  => 'Java.pod', # retrieve abstract from module
+		AUTHOR         => 'Patrick LeBoutillier <patl at cpan.org>') : ()),
 ) ;
 
 
diff --git a/README b/README
index a2b7320..9f8ac01 100644
--- a/README
+++ b/README
@@ -85,8 +85,6 @@ INFORMATION:
 Inline::Java's mailing list is inline at perl.org. 
 To subscribe, send an email to inline-subscribe at perl.org.
 
-Inline::Java's home page is http://inline.perl.org/java/.
-
 Please send questions and comments to Patrick LeBoutillier <patl at cpan.org>.
 
 Copyright (c) 2001-2005, Patrick LeBoutillier. All Rights Reserved.  

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