[libinline-java-perl] 77/398: *** empty log message ***

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:42:49 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 1b667b75aaa4bb7c29b74657b4625048d17861aa
Author: patrick <>
Date:   Fri May 4 13:13:05 2001 +0000

    *** empty log message ***
---
 CHANGES        | 10 ++++++----
 Java/Object.pm |  4 ++--
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/CHANGES b/CHANGES
index 88304ac..e827574 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,11 +1,13 @@
-Revision history for Perl extension Inline::Java.
-
-0.01  Thu Feb 15 14:01:25 EST 2001  
-    - Created Inline::Java.
+Revision history for Perl extension Inline::Java
+------------------------------------------------
 
 0.20  Sat Apr 14 23:00:00 EDT 2001
+    - Added optional JNI extension.
     - Added support for arrays.
     - Added support for public member variables.
     - Added support for public static member variables.
     - Added type casting.
 
+0.01  Thu Feb 15 14:01:25 EST 2001  
+    - Created Inline::Java.
+
diff --git a/Java/Object.pm b/Java/Object.pm
index c132590..efeb3ae 100644
--- a/Java/Object.pm
+++ b/Java/Object.pm
@@ -122,7 +122,7 @@ sub __validate_prototype {
 
 	my $nb_matched = scalar(@matched) ;
 	if (! $nb_matched){
-		my $name = $this->__get_private()->{class} ;
+		my $name = (ref($this) ? $this->__get_private()->{class} : $this) ;
 		my $sa = Inline::Java::Protocol->CreateSignature($args) ;
 		my $msg = "In method $method of class $name: Can't find any signature that matches " .
 			"the arguments passed $sa.\nAvailable signatures are:\n"  ;
@@ -282,7 +282,7 @@ sub AUTOLOAD {
 
 	my $name = (ref($this) ? $this->__get_private()->{class} : $this) ;
 	if ($name eq "Inline::Java::Object"){
-		croak "Can't call method $func_name on an object that is not bound to Perl" ;
+		croak "Can't call method $func_name on an object ($name) that is not bound to Perl" ;
 	}
 
 	croak "No public method $func_name defined for class $name" ;

-- 
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