[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