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

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:43:18 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 aac40ac7ca485413a6f40fdcb2cc32f1134a254e
Author: patrick_leb <>
Date:   Wed Apr 28 14:32:10 2004 +0000

    ok
---
 Java.pm                         |  6 ++++--
 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/Portable.pm                |  2 +-
 Java/Protocol.pm                |  2 +-
 MANIFEST                        |  1 +
 META.yml                        |  2 +-
 TODO                            |  1 -
 t/CGI.cgi                       | 18 +++++++++---------
 t/MOD_PERL.pm                   | 17 +++++++++++++----
 14 files changed, 36 insertions(+), 25 deletions(-)

diff --git a/Java.pm b/Java.pm
index 5bb079c..eb7372a 100644
--- a/Java.pm
+++ b/Java.pm
@@ -8,7 +8,7 @@ package Inline::Java ;
 use strict ;
 require 5.006 ;
 
-$Inline::Java::VERSION = '0.48_91' ;
+$Inline::Java::VERSION = '0.48_92' ;
 
 
 # DEBUG is set via the DEBUG config
@@ -81,6 +81,8 @@ END {
 
 # To export the cast function and others.
 sub import {
+	my $class = shift ;
+
 	foreach my $a (@_){
 		if ($a eq 'jar'){
 			print Inline::Java::Portable::get_server_jar() ;
@@ -98,7 +100,7 @@ sub import {
 			exit() ;
 		}
 	}
-    Inline::Java->export_to_level(1, @_) ;
+    $class->export_to_level(1, $class, @_) ;
 }
 
 
diff --git a/Java/Array.pm b/Java/Array.pm
index 9312752..aad867a 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_91' ;
+$Inline::Java::Array::VERSION = '0.48_92' ;
 
 # 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 345b7f4..a42a57c 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_91' ;
+$Inline::Java::Callback::VERSION = '0.48_92' ;
 
 $Inline::Java::Callback::OBJECT_HOOK = undef ;
 
diff --git a/Java/Class.pm b/Java/Class.pm
index 19622ea..7c308ad 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_91' ;
+$Inline::Java::Class::VERSION = '0.48_92' ;
 
 $Inline::Java::Class::MAX_SCORE = 10 ;
 
diff --git a/Java/JNI.pm b/Java/JNI.pm
index 855e0d3..5a74016 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_91' ;
+$Inline::Java::JNI::VERSION = '0.48_92' ;
 
 use DynaLoader ;
 use Carp ;
diff --git a/Java/Object.pm b/Java/Object.pm
index 9dbf1bd..6cebf22 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_91' ;
+$Inline::Java::Object::VERSION = '0.48_92' ;
 
 # 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 aa11d93..537f268 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_91' ;
+$Inline::Java::PerlNatives::VERSION = '0.48_92' ;
 
 1 ;
diff --git a/Java/Portable.pm b/Java/Portable.pm
index 74bdb28..9a03e22 100644
--- a/Java/Portable.pm
+++ b/Java/Portable.pm
@@ -10,7 +10,7 @@ use Config ;
 use File::Find ;
 use File::Spec ;
 
-$Inline::Java::Portable::VERSION = '0.48_91' ;
+$Inline::Java::Portable::VERSION = '0.48_92' ;
 
 # 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 e2e540c..ab3b371 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_91' ;
+$Inline::Java::Protocol::VERSION = '0.48_92' ;
 
 my %CLASSPATH_ENTRIES = () ;
 
diff --git a/MANIFEST b/MANIFEST
index 35f9b62..a91a4c3 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -16,6 +16,7 @@ Java/Portable.pm
 Java/Array.pm
 Java/Makefile.PL
 Java/JVM.pm
+Java/Server.pm
 Java/JNI.pm
 Java/JNI.xs
 Java/typemap
diff --git a/META.yml b/META.yml
index 3c2f281..a1722c2 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_91
+version:      0.48_92
 version_from: Java.pm
 installdirs:  site
 requires:
diff --git a/TODO b/TODO
index 521eaf6..09c205c 100644
--- a/TODO
+++ b/TODO
@@ -1,6 +1,5 @@
 CODE:
 - Finish PerlInterpreter test suite
-- Does STDIN still need to be closed in the JVM?
 
 DOCUMENTATION:
 - Redocument Callbacks
diff --git a/t/CGI.cgi b/t/CGI.cgi
index a1b9716..b601b7d 100755
--- a/t/CGI.cgi
+++ b/t/CGI.cgi
@@ -5,29 +5,29 @@ package t::CGI ;
 use strict ;
 
 use CGI ;
+use CGI::Carp qw(fatalsToBrowser) ;
 
 use Inline (
-	Java => '/home/patrickl/perl/dev/Inline-Java/t/counter.java',
-	DIRECTORY => '/home/patrickl/perl/dev/Inline-Java/_Inline_web_test',
-	BIN => '/usr/java/jdk1.3.1/bin',
+	Java => '/home/patrickl/DEV/Inline-Java/t/counter.java',
+	DIRECTORY => '/home/patrickl/DEV/Inline-Java/_Inline_web_test',
 	SHARED_JVM => 1,
 	NAME => 't::CGI',
 ) ;
 
-Inline::Java::release_JVM() ;
+BEGIN {
+	$t::CGI::cnt = new t::CGI::counter() ;
+}
 
-my $cnt = new t::CGI::counter() ;
-
-my $gnb = $cnt->gincr() ;
-my $nb = $cnt->incr() ;
+my $gnb = $t::CGI::cnt->gincr() ;
+my $nb = $t::CGI::cnt->incr() ;
 
 my $q = new CGI() ;
 print "Content-type: text/html\n\n" ;
 print 
 	$q->start_html() .
+	"Inline-Java " . $Inline::Java::VERSION . "<BR><BR>" .
 	"Inline-Java says this page received $gnb hits!<BR>" .
 	"Inline-Java says this CGI ($$) served $nb of those hits." .
 	$q->end_html() ;		
 
-
 1 ;
diff --git a/t/MOD_PERL.pm b/t/MOD_PERL.pm
index f845a0a..47a54f5 100755
--- a/t/MOD_PERL.pm
+++ b/t/MOD_PERL.pm
@@ -7,29 +7,38 @@ use strict ;
 use CGI ;
 
 use Inline (
-	Java => '/home/patrickl/perl/dev/Inline-Java/t/counter.java',
-	DIRECTORY => '/home/patrickl/perl/dev/Inline-Java/_Inline_web_test',
-	BIN => '/usr/java/jdk1.3.1/bin',
+	Java => '/home/patrickl/DEV/Inline-Java/t/counter.java',
+	DIRECTORY => '/home/patrickl/DEV/Inline-Java/_Inline_web_test',
 	NAME => 't::MOD_PERL',
 	SHARED_JVM => 1,
 ) ;
 
+use Apache::RequestRec ();
+use Apache::RequestIO ();
+  
+use Apache::Const -compile => qw(OK);
 
-Inline::Java::release_JVM() ;
 
 my $cnt = new t::MOD_PERL::counter() ;
 
 
 sub handler {
+	my $r = shift ;
+	
+	$r->content_type('text/html') ;
+
 	my $gnb = $cnt->gincr() ;
 	my $nb = $cnt->incr() ;
 
 	my $q = new CGI() ;
 	print 
 		$q->start_html() .
+	    "Inline-Java " . $Inline::Java::VERSION . "<BR><BR>" .
 		"Inline-Java says this page received $gnb hits!<BR>" .
 		"Inline-Java says this MOD_PERL ($$) served $nb of those hits." .
 		$q->end_html() ;
+
+	return Apache::OK ;
 }
 
 

-- 
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