[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