[libinline-java-perl] 372/398: ok, support for CharSequence

[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 bb68200a4164e8badf3a0d033bea39d9d8806db2
Author: patrick_leb <>
Date:   Thu Mar 2 21:42:03 2006 +0000

    ok, support for CharSequence
---
 Java/sources/org/perl/inline/java/InlineJavaClass.java | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/Java/sources/org/perl/inline/java/InlineJavaClass.java b/Java/sources/org/perl/inline/java/InlineJavaClass.java
index 71cb689..5272bc7 100644
--- a/Java/sources/org/perl/inline/java/InlineJavaClass.java
+++ b/Java/sources/org/perl/inline/java/InlineJavaClass.java
@@ -81,6 +81,16 @@ class InlineJavaClass {
 		}
 	}
 
+
+	static private Class ValidateClassQuiet(String name){
+		try {
+			return ValidateClass(name) ;
+		}
+		catch (InlineJavaException ije){
+			return null ;
+		}
+	}
+
 	/*
 		This is the monster method that determines how to cast arguments
 	*/
@@ -125,7 +135,7 @@ class InlineJavaClass {
 				InlineJavaUtils.debug(4, "specializing java.lang.Number to java.lang.Double") ;
 				ap = java.lang.Double.class ;
 			}
-			else if (ap == java.lang.CharSequence.class){
+			else if (ap.getName().equals("java.lang.CharSequence")){
 				InlineJavaUtils.debug(4, "specializing java.lang.CharSequence to java.lang.String") ;
 				ap = java.lang.String.class ;
 			}
@@ -410,10 +420,11 @@ class InlineJavaClass {
 	*/
 	static private HashMap string_classes = new HashMap() ;
 	static {
+		Class csq = ValidateClassQuiet("java.lang.CharSequence") ;
 		Class [] list = {
 			java.lang.String.class,
 			java.lang.StringBuffer.class,
-			java.lang.CharSequence.class,
+			csq
 		} ;
 		for (int i = 0 ; i < list.length ; i++){
 			string_classes.put(list[i], new Boolean(true)) ;

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