[libinline-java-perl] 387/398: minor bug fixes
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:28 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 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
More information about the Pkg-perl-cvs-commits
mailing list