[libinline-java-perl] 387/398: minor 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 65388be33a69df470359ea9d1b50a6528311f77f
Author: patrick_leb <>
Date:   Fri Oct 2 14:26:10 2009 +0000

    minor bug fixes
---
 Java/sources/org/perl/inline/java/InlineJavaClass.java     | 14 ++++++++++++++
 .../sources/org/perl/inline/java/InlineJavaPerlCaller.java |  4 ++--
 .../org/perl/inline/java/InlineJavaUserClassLoader.java    |  2 +-
 t/14_encoding.t                                            |  1 +
 t/15_native_doubles.t                                      |  6 ++++--
 5 files changed, 22 insertions(+), 5 deletions(-)

diff --git a/Java/sources/org/perl/inline/java/InlineJavaClass.java b/Java/sources/org/perl/inline/java/InlineJavaClass.java
index 5272bc7..bd57769 100644
--- a/Java/sources/org/perl/inline/java/InlineJavaClass.java
+++ b/Java/sources/org/perl/inline/java/InlineJavaClass.java
@@ -82,6 +82,20 @@ class InlineJavaClass {
 	}
 
 
+	/*
+ 		Remove L...; from a class name if it has been extracted from an Array class name.
+	*/
+	static String CleanClassName(String name){
+		if (name != null){
+			int l = name.length() ;
+			if ((l > 2)&&(name.charAt(0) == 'L')&&(name.charAt(l - 1) == ';')){
+				name = name.substring(1, l - 1) ; 
+			}
+		}
+		return name ;
+	}
+
+
 	static private Class ValidateClassQuiet(String name){
 		try {
 			return ValidateClass(name) ;
diff --git a/Java/sources/org/perl/inline/java/InlineJavaPerlCaller.java b/Java/sources/org/perl/inline/java/InlineJavaPerlCaller.java
index 64b5429..c389358 100644
--- a/Java/sources/org/perl/inline/java/InlineJavaPerlCaller.java
+++ b/Java/sources/org/perl/inline/java/InlineJavaPerlCaller.java
@@ -85,13 +85,13 @@ public class InlineJavaPerlCaller {
 	
 	
 	/* New interface */
-	Object CallPerlMethod(InlineJavaPerlObject obj, String method, Object args[]) throws InlineJavaException, InlineJavaPerlException {
+	public Object CallPerlMethod(InlineJavaPerlObject obj, String method, Object args[]) throws InlineJavaException, InlineJavaPerlException {
 		return CallPerlMethod(obj, method, args, null) ;
 	}
 	
 	
 	/* New interface */	
-	Object CallPerlMethod(InlineJavaPerlObject obj, String method, Object args[], Class cast) throws InlineJavaException, InlineJavaPerlException {
+	public Object CallPerlMethod(InlineJavaPerlObject obj, String method, Object args[], Class cast) throws InlineJavaException, InlineJavaPerlException {
 		InlineJavaCallback ijc = new InlineJavaCallback(
 			obj, method, args, cast) ; 
 		return CallPerl(ijc) ;
diff --git a/Java/sources/org/perl/inline/java/InlineJavaUserClassLoader.java b/Java/sources/org/perl/inline/java/InlineJavaUserClassLoader.java
index 1d8b403..0105872 100644
--- a/Java/sources/org/perl/inline/java/InlineJavaUserClassLoader.java
+++ b/Java/sources/org/perl/inline/java/InlineJavaUserClassLoader.java
@@ -33,7 +33,7 @@ class InlineJavaUserClassLoader extends URLClassLoader {
     public void AddClassPath(String path) throws InlineJavaException {
 		try {
 			File p = new File(path) ;
-			URL u = p.toURL() ;
+			URL u = p.toURI().toURL() ;
 			if (urls.get(u) == null){
 	            urls.put(u, "1") ;
 	            addURL(u) ;
diff --git a/t/14_encoding.t b/t/14_encoding.t
index 12d152f..5228978 100755
--- a/t/14_encoding.t
+++ b/t/14_encoding.t
@@ -41,6 +41,7 @@ my $t = new t14() ;
 
 	# Mix it up
 	ok($t->_String("$bin\x{E9}\x{263A}"), "$bin\x{E9}\x{263A}") ;
+
 }
 
 ok($t->__get_private()->{proto}->ObjectCount(), 1) ;
diff --git a/t/15_native_doubles.t b/t/15_native_doubles.t
index 6036c63..0c57454 100755
--- a/t/15_native_doubles.t
+++ b/t/15_native_doubles.t
@@ -11,14 +11,16 @@ use Inline (
 
 
 BEGIN {
-	plan(tests => 2) ;
+	plan(tests => 3) ;
 }
 
 
 my $t = new t15() ;
 
 {
-	ok($t->_Double(0.056200000000000028) == 0.056200000000000028) ;
+	# Here it is hard to test for accuracy, but either it works or it doesn't...
+	ok($t->_Double(0.056200000000000028) > 0.056) ;
+	ok($t->_Double(0.056200000000000028) < 0.057) ;
 }
 
 ok($t->__get_private()->{proto}->ObjectCount(), 1) ;

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