[libinline-java-perl] 300/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 3d2228c53c9d723795feb2ff8589b3f9af139af8
Author: patrick_leb <>
Date:   Fri Mar 5 03:10:56 2004 +0000

    ok
---
 Java/PerlInterpreter/t/01_perl_interpreter.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/Java/PerlInterpreter/t/01_perl_interpreter.pl b/Java/PerlInterpreter/t/01_perl_interpreter.pl
new file mode 100644
index 0000000..b22faac
--- /dev/null
+++ b/Java/PerlInterpreter/t/01_perl_interpreter.pl
@@ -0,0 +1,26 @@
+use strict ;
+
+use Test ;
+use File::Spec ;
+use Inline::Java ;
+use Inline::Java::Portable ;
+# Our default J2SK
+require Inline::Java->find_default_j2sdk() ;
+
+
+BEGIN {
+    plan(tests => 1) ;
+}
+
+
+$ENV{CLASSPATH} = make_classpath(get_server_jar()) ;
+
+
+my $java = File::Spec->catfile(
+	Inline::Java::get_default_j2sdk(),
+	'bin', 'java' . Inline::Java::portable("EXE_EXTENSION")) ;
+
+my $cmd = Inline::Java::portable("SUB_FIX_CMD_QUOTES", "\"$java\" org.perl.inline.java.InlineJavaPerlInterpreter") ;
+
+print STDERR "Running '$cmd'\n" ;
+print `$cmd` ;

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