[libinline-java-perl] 336/398: ok

[Jonas Smedegaard]

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 1b847eb3b1dd4f8d93affa959207fd074903636d
Author: patrick_leb <>
Date:   Tue Feb 1 01:14:36 2005 +0000

    ok
---
 Java.pod                        | 13 ++++++++++++-
 Java/Array.pm                   |  2 +-
 Java/Callback.pm                |  2 +-
 Java/Class.pm                   |  2 +-
 Java/JNI.pm                     |  2 +-
 Java/Object.pm                  |  2 +-
 Java/PerlNatives/PerlNatives.pm |  2 +-
 Java/Protocol.pm                |  2 +-
 Java/Server.pm                  |  2 +-
 bug/test.pl                     | 24 +++++++++---------------
 10 files changed, 29 insertions(+), 24 deletions(-)

diff --git a/Java.pod b/Java.pod
index 814ea0a..a05832f 100644
--- a/Java.pod
+++ b/Java.pod
@@ -146,6 +146,17 @@ Note: This configuration option only has an effect on the first
 'use Inline Java' call inside a Perl script, since all other calls
 make use of the same JVM.
 
+=item HOST
+
+Specifies the host on which the JVM server is running. This option
+really only makes sense in SHARED_JVM mode when START_JVM is disabled.
+
+   Ex: HOST => 'jvm.server.com'
+
+Note: This configuration option only has an effect on the first
+'use Inline Java' call inside a Perl script, since all other calls
+make use of the same JVM.
+
 =item STARTUP_DELAY
 
 Specifies the maximum number of seconds that the Perl script
@@ -1040,7 +1051,7 @@ Brian Ingerson <ingy at cpan.org> is the author of Inline.
 
 =head1 COPYRIGHT
 
-Copyright (c) 2001-2004, Patrick LeBoutillier.
+Copyright (c) 2001-2005, Patrick LeBoutillier.
 
 All Rights Reserved. This module is free software. It may be used,
 redistributed and/or modified under the terms of the Perl Artistic
diff --git a/Java/Array.pm b/Java/Array.pm
index 655af67..32c458b 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.49' ;
+$Inline::Java::Array::VERSION = '0.50' ;
 
 # 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 d2b66fd..b96e1d9 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.49' ;
+$Inline::Java::Callback::VERSION = '0.50' ;
 
 $Inline::Java::Callback::OBJECT_HOOK = undef ;
 
diff --git a/Java/Class.pm b/Java/Class.pm
index a3852ac..e3ad4eb 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.49' ;
+$Inline::Java::Class::VERSION = '0.50' ;
 
 $Inline::Java::Class::MAX_SCORE = 10 ;
 
diff --git a/Java/JNI.pm b/Java/JNI.pm
index b1f35bb..be6cc7f 100644
--- a/Java/JNI.pm
+++ b/Java/JNI.pm
@@ -4,7 +4,7 @@ package Inline::Java::JNI ;
 
 use strict ;
 
-$Inline::Java::JNI::VERSION = '0.49' ;
+$Inline::Java::JNI::VERSION = '0.50' ;
 
 use DynaLoader ;
 use Carp ;
diff --git a/Java/Object.pm b/Java/Object.pm
index 33241dd..fa7d683 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.49' ;
+$Inline::Java::Object::VERSION = '0.50' ;
 
 # 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 29d6b49..c9d56e7 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.49' ;
+$Inline::Java::PerlNatives::VERSION = '0.50' ;
 
 1 ;
diff --git a/Java/Protocol.pm b/Java/Protocol.pm
index 6993ed1..bfe9f32 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.49' ;
+$Inline::Java::Protocol::VERSION = '0.50' ;
 
 my %CLASSPATH_ENTRIES = () ;
 
diff --git a/Java/Server.pm b/Java/Server.pm
index 6df4ffa..51a9594 100644
--- a/Java/Server.pm
+++ b/Java/Server.pm
@@ -13,7 +13,7 @@ require Inline::Java ;
 use File::Spec ;
 
 
-$Inline::Java::Server::VERSION = '0.49' ;
+$Inline::Java::Server::VERSION = '0.50' ;
 
 
 # Create a dummy Inline::Java object in order to 
diff --git a/bug/test.pl b/bug/test.pl
index 1d9d673..5e326a6 100644
--- a/bug/test.pl
+++ b/bug/test.pl
@@ -1,18 +1,12 @@
-BEGIN {
-	$main::CNOTE_HOME = "/bla/bla/bla"
-}
+#!/usr/bin/perl
 
-use Inline (Java  => 'DATA',
-    PORT => 4500,
-    EXTRA_JAVA_ARGS => "-Xmx196m -DCNOTE_HOME=$main::CNOTE_HOME"
-);
+use strict;
+use warnings;
+use lib "bug" ;
+use PKG1;
 
-print test->get_prop("CNOTE_HOME"), "\n" ;
+print PKG1->hello() ;
 
-__END__
-__Java__
-class test {
-	public static String get_prop(String p){
-		return System.getProperty(p) ;
-	}
-}
+# use PKG2 ;
+# PKG2::callpkg1() ;
+ 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git