[libinline-java-perl] 333/398: 0.49, finally
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:20 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 517ac4e668d48ce8365de9477f251697aefffbf4
Author: patrick_leb <>
Date: Wed Jul 7 01:35:24 2004 +0000
0.49, finally
---
Java.pm | 2 +-
Java/Array.pm | 2 +-
Java/Callback.pm | 2 +-
Java/Class.pm | 9 +++++----
Java/JNI.pm | 2 +-
Java/JVM.pm | 2 +-
Java/Object.pm | 2 +-
Java/PerlNatives/PerlNatives.pm | 2 +-
Java/Portable.pm | 2 +-
Java/Protocol.pm | 2 +-
Java/Server.pm | 2 +-
META.yml | 2 +-
12 files changed, 16 insertions(+), 15 deletions(-)
diff --git a/Java.pm b/Java.pm
index a912e51..4a89510 100644
--- a/Java.pm
+++ b/Java.pm
@@ -8,7 +8,7 @@ package Inline::Java ;
use strict ;
require 5.006 ;
-$Inline::Java::VERSION = '0.48_95' ;
+$Inline::Java::VERSION = '0.49' ;
# DEBUG is set via the DEBUG config
diff --git a/Java/Array.pm b/Java/Array.pm
index 11e6768..655af67 100644
--- a/Java/Array.pm
+++ b/Java/Array.pm
@@ -4,7 +4,7 @@ package Inline::Java::Array ;
use strict ;
use Carp ;
-$Inline::Java::Array::VERSION = '0.48_95' ;
+$Inline::Java::Array::VERSION = '0.49' ;
# Here we store as keys the knots and as values our blessed objects
my $OBJECTS = {} ;
diff --git a/Java/Callback.pm b/Java/Callback.pm
index 0c23b91..d2b66fd 100644
--- a/Java/Callback.pm
+++ b/Java/Callback.pm
@@ -3,7 +3,7 @@ package Inline::Java::Callback ;
use strict ;
use Carp ;
-$Inline::Java::Callback::VERSION = '0.48_95' ;
+$Inline::Java::Callback::VERSION = '0.49' ;
$Inline::Java::Callback::OBJECT_HOOK = undef ;
diff --git a/Java/Class.pm b/Java/Class.pm
index 9c5cddc..a3852ac 100644
--- a/Java/Class.pm
+++ b/Java/Class.pm
@@ -3,7 +3,7 @@ package Inline::Java::Class ;
use strict ;
use Carp ;
-$Inline::Java::Class::VERSION = '0.48_95' ;
+$Inline::Java::Class::VERSION = '0.49' ;
$Inline::Java::Class::MAX_SCORE = 10 ;
@@ -275,10 +275,11 @@ sub CastArgument {
else {
# We want to send a Perl object to the Java side.
my $ijp = new Inline::Java::Protocol(undef, $inline) ;
- my ($msg, $score) = $ijp->__ISA($proto, 'org.perl.inline.java.InlineJavaPerlObject') ;
- if ($msg){
- croak $msg ;
+ my $score = $ijp->__ISA($proto, 'org.perl.inline.java.InlineJavaPerlObject') ;
+ if ($score == -1){
+ croak "$proto is not a kind of org.perl.inline.java.InlineJavaPerlObject" ;
}
+
Inline::Java::debug(3, "$arg is a $proto") ;
# a matching object, pretty good match, except if proto
diff --git a/Java/JNI.pm b/Java/JNI.pm
index 0706ec1..b1f35bb 100644
--- a/Java/JNI.pm
+++ b/Java/JNI.pm
@@ -4,7 +4,7 @@ package Inline::Java::JNI ;
use strict ;
-$Inline::Java::JNI::VERSION = '0.48_95' ;
+$Inline::Java::JNI::VERSION = '0.49' ;
use DynaLoader ;
use Carp ;
diff --git a/Java/JVM.pm b/Java/JVM.pm
index b6bfc87..ec451de 100644
--- a/Java/JVM.pm
+++ b/Java/JVM.pm
@@ -8,7 +8,7 @@ use IPC::Open3 ;
use IO::Socket ;
use Inline::Java::Portable ;
-$Inline::Java::JVM::VERSION = '0.48_95' ;
+$Inline::Java::JVM::VERSION = '0.49' ;
my %SIGS = () ;
diff --git a/Java/Object.pm b/Java/Object.pm
index aaf559f..33241dd 100644
--- a/Java/Object.pm
+++ b/Java/Object.pm
@@ -5,7 +5,7 @@ use strict ;
use Inline::Java::Protocol ;
use Carp ;
-$Inline::Java::Object::VERSION = '0.48_95' ;
+$Inline::Java::Object::VERSION = '0.49' ;
# Here we store as keys the knots and as values our blessed private objects
my $PRIVATES = {} ;
diff --git a/Java/PerlNatives/PerlNatives.pm b/Java/PerlNatives/PerlNatives.pm
index a4acd9e..29d6b49 100644
--- a/Java/PerlNatives/PerlNatives.pm
+++ b/Java/PerlNatives/PerlNatives.pm
@@ -2,6 +2,6 @@ package Inline::Java::PerlNatives ;
use strict ;
-$Inline::Java::PerlNatives::VERSION = '0.48_95' ;
+$Inline::Java::PerlNatives::VERSION = '0.49' ;
1 ;
diff --git a/Java/Portable.pm b/Java/Portable.pm
index 1a36e28..a902eec 100644
--- a/Java/Portable.pm
+++ b/Java/Portable.pm
@@ -9,7 +9,7 @@ use Config ;
use File::Find ;
use File::Spec ;
-$Inline::Java::Portable::VERSION = '0.48_95' ;
+$Inline::Java::Portable::VERSION = '0.49' ;
# Here is some code to figure out if we are running on command.com
# shell under Windows.
diff --git a/Java/Protocol.pm b/Java/Protocol.pm
index 50f9533..6993ed1 100644
--- a/Java/Protocol.pm
+++ b/Java/Protocol.pm
@@ -5,7 +5,7 @@ use Inline::Java::Object ;
use Inline::Java::Array ;
use Carp ;
-$Inline::Java::Protocol::VERSION = '0.48_95' ;
+$Inline::Java::Protocol::VERSION = '0.49' ;
my %CLASSPATH_ENTRIES = () ;
diff --git a/Java/Server.pm b/Java/Server.pm
index 87921b9..6df4ffa 100644
--- a/Java/Server.pm
+++ b/Java/Server.pm
@@ -13,7 +13,7 @@ require Inline::Java ;
use File::Spec ;
-$Inline::Java::Server::VERSION = '0.48_95' ;
+$Inline::Java::Server::VERSION = '0.49' ;
# Create a dummy Inline::Java object in order to
diff --git a/META.yml b/META.yml
index d56ad01..031862a 100644
--- a/META.yml
+++ b/META.yml
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Inline-Java
-version: 0.48_95
+version: 0.49
version_from: Java.pm
installdirs: site
requires:
--
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