[libinline-java-perl] 240/398: 0.43
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:09 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 9206cd06e0ad4f86afcd4561c9c42fad1bebfa5a
Author: patrick_leb <>
Date: Tue Oct 14 20:32:14 2003 +0000
0.43
---
CHANGES | 8 ++++++--
Java.pm | 3 ++-
Java/Array.pm | 1 +
Java/Callback.pm | 5 ++++-
Java/Class.pm | 2 ++
Java/JNI.pm | 2 +-
Java/JVM.pm | 3 +++
Java/Object.pm | 2 ++
Java/Portable.pm | 2 ++
Java/Protocol.pm | 8 ++++++--
Makefile.PL | 3 ++-
README | 4 ++++
TODO | 1 +
t/01_init.t | 4 +++-
14 files changed, 39 insertions(+), 9 deletions(-)
diff --git a/CHANGES b/CHANGES
index dc6a3ec..c54d4e9 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,7 +1,11 @@
Revision history for Perl extension Inline::Java
------------------------------------------------
-0.42 Fri Sep 5 13:18:25 EDT 200
+0.43 Tue Oct 14 13:18:25 EDT 2003
+ - Restored $VERSION in each .pm file
+ - Inline::Java now formerly requires Perl 5.6
+
+0.42 Fri Sep 5 13:18:25 EDT 2003
- Fixed more CLASSPATH issues. CLASSPATH now works like this:
* CLASSPATH environment variable is global
* CLASSPATH configuration option is local to the user class loader
@@ -10,7 +14,7 @@ Revision history for Perl extension Inline::Java
- Altered and documented the study_classes() function
- Added EXTRA_JAVA_ARGS and EXTRA_JAVAC_ARGS config options
-0.41 Mon Jul 14 13:18:25 EDT 200
+0.41 Mon Jul 14 13:18:25 EDT 2003
- Fixed CLASSPATH bug
- Possibly (!) fixed test suite problems under heavy load
diff --git a/Java.pm b/Java.pm
index 700f126..8944f19 100644
--- a/Java.pm
+++ b/Java.pm
@@ -6,8 +6,9 @@ package Inline::Java ;
use strict ;
+require 5.6.0 ;
-$Inline::Java::VERSION = '0.42' ;
+$Inline::Java::VERSION = '0.43' ;
# DEBUG is set via the DEBUG config
diff --git a/Java/Array.pm b/Java/Array.pm
index cae70b3..2a26fbd 100644
--- a/Java/Array.pm
+++ b/Java/Array.pm
@@ -4,6 +4,7 @@ package Inline::Java::Array ;
use strict ;
use Carp ;
+$Inline::Java::Array::VERSION = '0.43' ;
# 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 5fe4778..69ea028 100644
--- a/Java/Callback.pm
+++ b/Java/Callback.pm
@@ -3,9 +3,12 @@ package Inline::Java::Callback ;
use strict ;
use Carp ;
+$Inline::Java::Callback::VERSION = '0.43' ;
+
$Inline::Java::Callback::OBJECT_HOOK = undef ;
+
sub InterceptCallback {
my $inline = shift ;
my $resp = shift ;
@@ -78,4 +81,4 @@ sub ProcessCallback {
-1 ;
\ No newline at end of file
+1 ;
diff --git a/Java/Class.pm b/Java/Class.pm
index 684b99c..81aaa93 100644
--- a/Java/Class.pm
+++ b/Java/Class.pm
@@ -3,6 +3,8 @@ package Inline::Java::Class ;
use strict ;
use Carp ;
+$Inline::Java::Class::VERSION = '0.43' ;
+
$Inline::Java::Class::MAX_SCORE = 10 ;
my $INT_RE = '^[+-]?\d+$' ;
diff --git a/Java/JNI.pm b/Java/JNI.pm
index 668d8ab..5e07f0d 100644
--- a/Java/JNI.pm
+++ b/Java/JNI.pm
@@ -4,7 +4,7 @@ package Inline::Java::JNI ;
use strict ;
-$Inline::Java::JNI::VERSION = '0.42' ;
+$Inline::Java::JNI::VERSION = '0.43' ;
use DynaLoader ;
use Carp ;
diff --git a/Java/JVM.pm b/Java/JVM.pm
index 8d03f8b..23d76ce 100644
--- a/Java/JVM.pm
+++ b/Java/JVM.pm
@@ -8,6 +8,8 @@ use IO::File ;
use IO::Socket ;
use POSIX qw(setsid) ;
+$Inline::Java::JVM::VERSION = '0.43' ;
+
my %SIGS = () ;
my @SIG_LIST = ('HUP', 'INT', 'PIPE', 'TERM') ;
@@ -84,6 +86,7 @@ sub new {
}
else{
# Revert to the default.
+ # Try this maybe: 9000 + $$ ?
$this->{port} = - $this->{port} ;
}
}
diff --git a/Java/Object.pm b/Java/Object.pm
index 5259dc0..4e95130 100644
--- a/Java/Object.pm
+++ b/Java/Object.pm
@@ -5,6 +5,8 @@ use strict ;
use Inline::Java::Protocol ;
use Carp ;
+$Inline::Java::Object::VERSION = '0.43' ;
+
# Here we store as keys the knots and as values our blessed private objects
my $PRIVATES = {} ;
diff --git a/Java/Portable.pm b/Java/Portable.pm
index 20f4dfd..827d7d2 100644
--- a/Java/Portable.pm
+++ b/Java/Portable.pm
@@ -11,6 +11,8 @@ use Cwd ;
use File::Find ;
use File::Spec ;
+$Inline::Java::Portable::VERSION = '0.43' ;
+
# Here is some code to figure out if we are running on command.com
# shell under Windows.
my $COMMAND_COM =
diff --git a/Java/Protocol.pm b/Java/Protocol.pm
index 6882160..a046662 100644
--- a/Java/Protocol.pm
+++ b/Java/Protocol.pm
@@ -5,6 +5,8 @@ use Inline::Java::Object ;
use Inline::Java::Array ;
use Carp ;
+$Inline::Java::Protocol::VERSION = '0.43' ;
+
my %CLASSPATH_ENTRIES = () ;
@@ -410,14 +412,16 @@ sub DeserializeObject {
sub encode {
my $s = shift ;
- return join(".", unpack("U*", $s)) ;
+ # If Perl version < 5.6, use C*
+ return join(".", unpack(($] < 5.006 ? "C*" : "U*"), $s)) ;
}
sub decode {
my $s = shift ;
- return pack("U*", split(/\./, $s)) ;
+ # If Perl version < 5.6, use C*
+ return pack(($] < 5.006 ? "C*" : "U*"), split(/\./, $s)) ;
}
diff --git a/Makefile.PL b/Makefile.PL
index ff8fbb6..dbf4341 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -142,7 +142,8 @@ WriteMakefile(
VERSION_FROM => 'Java.pm',
DIR => ['Java'],
PREREQ_PM => {
- Inline => 0.44
+ Inline => 0.44,
+ Test => 1.13,
},
PM => {
'Java.pm' => File::Spec->catfile('$(INST_LIBDIR)', 'Java.pm'),
diff --git a/README b/README
index b0660f9..86c4725 100644
--- a/README
+++ b/README
@@ -70,6 +70,10 @@ WARNING: THIS IS ALPHA SOFTWARE. It is incomplete and possibly unreliable.
It is also possible that some elements of the interface (API) will
change in future releases.
+Inline::Java version 0.43 is a minor upgrade that includes:
++ Restored $VERSION in each .pm file
++ Inline::Java now formerly requires Perl 5.6
+
Inline::Java version 0.42 is a minor upgrade that includes:
+ Fixed more CLASSPATH issues. CLASSPATH now works like this:
* CLASSPATH environment variable is global
diff --git a/TODO b/TODO
index b130a25..0937faa 100644
--- a/TODO
+++ b/TODO
@@ -1,5 +1,6 @@
CODE:
- Do more test for CLASSPATH combinations
+- PRIVATE mode
TEST:
- Alpha
diff --git a/t/01_init.t b/t/01_init.t
index d59babb..b0b042d 100644
--- a/t/01_init.t
+++ b/t/01_init.t
@@ -18,8 +18,10 @@ my $ij = $types1::INLINE ;
$ij = $types1::INLINE ; # Stupid warning...
my $jdk = $ij->get_java_config("J2SDK") ;
my $ver = types1->version() ;
-print STDERR "\nInline version is $Inline::VERSION\n" ;
+print STDERR "\nPerl version is $]\n" ;
+print STDERR "Inline version is $Inline::VERSION\n" ;
print STDERR "Inline::Java version is $Inline::Java::VERSION\n" ;
+
print STDERR "J2SDK version is $ver, from $jdk\n" ;
print STDERR "CLASSPATH is $main::cp\n" ;
--
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