[libinline-java-perl] 288/398: small adjustements of CLASSPATH + -Mjar feature added
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:15 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 665516c7b745579478dcc55b4dca8c1d7daa3179
Author: patrick_leb <>
Date: Sat Feb 28 14:06:20 2004 +0000
small adjustements of CLASSPATH + -Mjar feature added
---
Java.pm | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/Java.pm b/Java.pm
index 9606037..f392d17 100644
--- a/Java.pm
+++ b/Java.pm
@@ -2,13 +2,13 @@ package Inline::Java ;
@Inline::Java::ISA = qw(Inline Exporter) ;
# Export the cast function if wanted
- at EXPORT_OK = qw(cast study_classes caught) ;
+ at EXPORT_OK = qw(cast study_classes caught jar) ;
use strict ;
require 5.006 ;
-$Inline::Java::VERSION = '0.46' ;
+$Inline::Java::VERSION = '0.47' ;
# DEBUG is set via the DEBUG config
@@ -80,6 +80,12 @@ END {
# To export the cast function and others.
sub import {
+ foreach my $a (@_){
+ if ($a eq 'jar'){
+ print Inline::Java::Portable::get_server_jar() ;
+ exit() ;
+ }
+ }
Inline::Java->export_to_level(1, @_) ;
}
@@ -326,7 +332,7 @@ sub build {
}
my $cp = $ENV{CLASSPATH} || '' ;
- $ENV{CLASSPATH} = make_classpath($o->get_java_config('CLASSPATH'), $server_jar, @prev_install_dirs) ;
+ $ENV{CLASSPATH} = make_classpath($server_jar, @prev_install_dirs, $o->get_java_config('CLASSPATH')) ;
Inline::Java::debug(2, "classpath: $ENV{CLASSPATH}") ;
my $args = $o->get_java_config('EXTRA_JAVAC_ARGS') ;
my $cmd = portable("SUB_FIX_CMD_QUOTES", "\"$javac\" $args -d \"$install_dir\" $source > cmd.out $redir") ;
@@ -442,8 +448,7 @@ sub load {
}
$ENV{CLASSPATH} = '' ;
- my @cp = make_classpath(
- $o->get_java_config('CLASSPATH'), $install_dir) ;
+ my @cp = make_classpath($install_dir, $o->get_java_config('CLASSPATH')) ;
$ENV{CLASSPATH} = $cp ;
my $pc = new Inline::Java::Protocol(undef, $o) ;
--
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