[libinline-java-perl] 117/398: Initial revision
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:42:55 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 501ecf9f304c41d803636ad74c5357f5409112b5
Author: Patrick LeBoutillier <patl at cpan.org>
Date: Thu Dec 6 21:51:15 2001 +0000
Initial revision
---
t/shared_jvm_server.pl | 26 ++++++++++++++++++++++++++
1 file changed, 26 insertions(+)
diff --git a/t/shared_jvm_server.pl b/t/shared_jvm_server.pl
new file mode 100644
index 0000000..dba75d0
--- /dev/null
+++ b/t/shared_jvm_server.pl
@@ -0,0 +1,26 @@
+use strict ;
+
+use blib ;
+
+
+BEGIN {
+ $ENV{CLASSPATH} .= ":[PERL_INLINE_JAVA=shared_jvm_test]" ;
+ mkdir('./_Inline_test', 0777) unless -e './_Inline_test';
+}
+
+
+use Inline Config =>
+ DIRECTORY => './_Inline_test' ;
+
+
+use Inline(
+ Java => 'STUDY',
+ SHARED_JVM => 1,
+) ;
+
+print "CLASSPATH should be preset for the server to work\n" ;
+print "CLASSPATH = $ENV{CLASSPATH}\n" ;
+print "Shared JVM server started\n" ;
+while (1){
+ sleep(60) ;
+}
--
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