[libinline-java-perl] 376/398: ok for 0.50_93
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:27 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 7d93c933870f6c8c7664d7858f252947cdca8412
Author: patrick_leb <>
Date: Wed Mar 29 23:54:40 2006 +0000
ok for 0.50_93
---
Java.pm | 2 +-
Java.pod | 5 +++++
Java/Array.pm | 2 +-
Java/Callback.pm | 2 +-
Java/Callback.pod | 4 ++--
Java/Class.pm | 2 +-
Java/Handle.pm | 2 +-
Java/JNI.pm | 2 +-
Java/JVM.pm | 2 +-
Java/Object.pm | 2 +-
Java/PerlInterpreter/PerlInterpreter.pm | 2 +-
Java/Portable.pm | 4 +++-
Java/Protocol.pm | 2 +-
Java/Server.pm | 2 +-
Makefile.PL | 9 ++++++++-
README.JNI | 7 +++++++
16 files changed, 36 insertions(+), 15 deletions(-)
diff --git a/Java.pm b/Java.pm
index 01e0fda..d07d814 100644
--- a/Java.pm
+++ b/Java.pm
@@ -8,7 +8,7 @@ package Inline::Java ;
use strict ;
require 5.006 ;
-$Inline::Java::VERSION = '0.50_92' ;
+$Inline::Java::VERSION = '0.50_93' ;
# DEBUG is set via the DEBUG config
diff --git a/Java.pod b/Java.pod
index 203aef2..9f887b6 100644
--- a/Java.pod
+++ b/Java.pod
@@ -1024,6 +1024,11 @@ Here is an example of how to use C<Inline::Java> under mod_perl:
See USING Inline::Java IN A CGI for more details.
+If you are using L<ModPerl::Registry>, make sure to use the C<PACKAGE>
+configuration option to specifiy the package in which C<Inline::Java>
+should bind the Java code, since L<ModPerl::Registry> will place your
+code in a package with a unpredictable name.
+
See the BUGS AND DEFICIENCIES section if you have problems starting
the SHARED_JVM server under MOD_PERL.
Z<>
diff --git a/Java/Array.pm b/Java/Array.pm
index 47b1772..7e04499 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.50_92' ;
+$Inline::Java::Array::VERSION = '0.50_93' ;
# 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 cf83cad..f7403e4 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.50_92' ;
+$Inline::Java::Callback::VERSION = '0.50_93' ;
$Inline::Java::Callback::OBJECT_HOOK = undef ;
diff --git a/Java/Callback.pod b/Java/Callback.pod
index feca097..d14e882 100644
--- a/Java/Callback.pod
+++ b/Java/Callback.pod
@@ -337,10 +337,10 @@ example:
my $b = new Pod_Button() ;
$b->OpenCallbackStream() ;
- while ((my $rc = $t->WaitForCallback(5)) > -1){
+ while ((my $rc = $b->WaitForCallback(5)) > -1){
if ($rc > 0){
# A callback is pending, we must process it.
- $t->ProcessNextCallback() ;
+ $b->ProcessNextCallback() ;
}
else {
# A timeout has occured after, in this case, 5 secs.
diff --git a/Java/Class.pm b/Java/Class.pm
index 39a4535..e7e912b 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.50_92' ;
+$Inline::Java::Class::VERSION = '0.50_93' ;
$Inline::Java::Class::MAX_SCORE = 10 ;
diff --git a/Java/Handle.pm b/Java/Handle.pm
index 8ffc9a1..73fd1dc 100644
--- a/Java/Handle.pm
+++ b/Java/Handle.pm
@@ -5,7 +5,7 @@ use strict ;
use Symbol ;
use Carp ;
-$Inline::Java::Handle::VERSION = '0.50_92' ;
+$Inline::Java::Handle::VERSION = '0.50_93' ;
# Here we store as keys the knots and as values our blessed objects
diff --git a/Java/JNI.pm b/Java/JNI.pm
index 03fc6fe..e101426 100644
--- a/Java/JNI.pm
+++ b/Java/JNI.pm
@@ -4,7 +4,7 @@ package Inline::Java::JNI ;
use strict ;
-$Inline::Java::JNI::VERSION = '0.50_92' ;
+$Inline::Java::JNI::VERSION = '0.50_93' ;
use DynaLoader ;
use Carp ;
diff --git a/Java/JVM.pm b/Java/JVM.pm
index 6b150e8..51d0ba1 100644
--- a/Java/JVM.pm
+++ b/Java/JVM.pm
@@ -9,7 +9,7 @@ use IO::Socket ;
use Text::ParseWords ;
use Inline::Java::Portable ;
-$Inline::Java::JVM::VERSION = '0.50_92' ;
+$Inline::Java::JVM::VERSION = '0.50_93' ;
my %SIGS = () ;
diff --git a/Java/Object.pm b/Java/Object.pm
index 0474231..3a73106 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.50_92' ;
+$Inline::Java::Object::VERSION = '0.50_93' ;
# Here we store as keys the knots and as values our blessed private objects
my $PRIVATES = {} ;
diff --git a/Java/PerlInterpreter/PerlInterpreter.pm b/Java/PerlInterpreter/PerlInterpreter.pm
index 9f719bc..489e23d 100644
--- a/Java/PerlInterpreter/PerlInterpreter.pm
+++ b/Java/PerlInterpreter/PerlInterpreter.pm
@@ -3,7 +3,7 @@ package Inline::Java::PerlInterpreter ;
use strict ;
use Inline::Java ;
-$Inline::Java::PerlInterpreter::VERSION = '0.50_92' ;
+$Inline::Java::PerlInterpreter::VERSION = '0.50_93' ;
use Inline (
diff --git a/Java/Portable.pm b/Java/Portable.pm
index b7c629e..26bce6a 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.50_92' ;
+$Inline::Java::Portable::VERSION = '0.50_93' ;
# Here is some code to figure out if we are running on command.com
# shell under Windows.
@@ -162,6 +162,7 @@ sub portable {
PERL_PARSE_DUP_ENV => '-DPERL_PARSE_DUP_ENV',
BUILD_JNI_BY_DFLT => 1,
J2SDK_BIN => 'bin',
+ DEFAULT_J2SDK_DIR => undef,
OTHERLDFLAGS => '',
} ;
@@ -234,6 +235,7 @@ sub portable {
POST_WHOLE_ARCHIVE => '-Wl',
GOT_SYMLINK => 1,
J2SDK_BIN => 'Commands',
+ DEFAULT_J2SDK_DIR => '/System/Library/Frameworks/JavaVM.framework/Versions/CurrentJDK',
# Tim Bunce:
OTHERLDFLAGS => '',
},
diff --git a/Java/Protocol.pm b/Java/Protocol.pm
index a599d97..ed26b00 100644
--- a/Java/Protocol.pm
+++ b/Java/Protocol.pm
@@ -10,7 +10,7 @@ BEGIN {
}
-$Inline::Java::Protocol::VERSION = '0.50_92' ;
+$Inline::Java::Protocol::VERSION = '0.50_93' ;
my %CLASSPATH_ENTRIES = () ;
diff --git a/Java/Server.pm b/Java/Server.pm
index 632a741..258d6b2 100644
--- a/Java/Server.pm
+++ b/Java/Server.pm
@@ -13,7 +13,7 @@ require Inline::Java ;
use File::Spec ;
-$Inline::Java::Server::VERSION = '0.50_92' ;
+$Inline::Java::Server::VERSION = '0.50_93' ;
# Create a dummy Inline::Java object in order to
diff --git a/Makefile.PL b/Makefile.PL
index 5cd7b1d..6bf5c4a 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -20,12 +20,19 @@ for (my $i = 0 ; $i < scalar(@ARGV) ; $i++){
}
if (! $jdk_dir){
+ my $try = $ENV{PERL_INLINE_JAVA_J2SDK} || $ENV{JAVA_HOME}
+ || Inline::Java::Portable::portable('DEFAULT_J2SDK_DIR') ;
+ print "Using $try as J2SDK directory.\n\n" if $try ;
+ $jdk_dir = $try ;
+}
+
+if (! $jdk_dir){
my $def_pl = File::Spec->catfile('Java', 'default_j2sdk.pl') ;
if (-e $def_pl){
require File::Spec->catfile('Java', 'default_j2sdk.pl') ;
$jdk_dir = Inline::Java::get_default_j2sdk() ;
}
- else{
+ else {
print <<NO_J2SDK;
A Java 2 SDK is required to install and use Inline::Java. Please
specify your Java 2 SDK installation directory using the J2SDK
diff --git a/README.JNI b/README.JNI
index cb4e1ea..e0c131f 100644
--- a/README.JNI
+++ b/README.JNI
@@ -99,6 +99,13 @@ that you use Perl >= 5.8.0 or do one of the following:
% for i in `ls t/*.t` ; do perl -Mblib $i; done
+CYGWIN
+------
+I have never been able to get the JNI extension running under Cygwin (it
+won't compile). My guess is that I should be using a Linux J2SDK and not
+a Windows one. I anybody has anything on this please let me know.
+
+
BUILDING PERL
-------------
Here's how to rebuild Perl (version < 5.8.0) to get the JNI extension to
--
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