[libinline-java-perl] 188/398: fixed stuff for 5.005_03
Jonas Smedegaard
dr at jones.dk
Thu Feb 26 11:43:02 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 1362b606250848084b18161cee9cb3fe98be2db5
Author: patrick_leb <>
Date: Wed Mar 13 17:04:59 2002 +0000
fixed stuff for 5.005_03
---
Java/Portable.pm | 19 ++++++++++++++++++-
1 file changed, 18 insertions(+), 1 deletion(-)
diff --git a/Java/Portable.pm b/Java/Portable.pm
index cb0847a..2022dfe 100644
--- a/Java/Portable.pm
+++ b/Java/Portable.pm
@@ -12,6 +12,7 @@ $Inline::Java::Portable::VERSION = '0.31' ;
use Exporter ;
use Carp ;
use Config ;
+use File::Find ;
# Here is some code to figure out if we are running on command.com
# shell under Windows.
@@ -72,6 +73,21 @@ sub rmpath {
} ;
+sub find_classes_in_dir {
+ my $dir = shift ;
+
+ my @ret = () ;
+ find(sub {
+ my $file = $_ ;
+ if ($file =~ /\.class$/){
+ push @ret, $file ;
+ }
+ }, $dir) ;
+
+ return @ret ;
+}
+
+
sub portable {
my $key = shift ;
my $val = shift ;
@@ -84,11 +100,11 @@ sub portable {
SO_EXT => $Config{dlext},
PREFIX => $Config{prefix},
LIBPERL => $Config{libperl},
- INSTALL_JNI_SO => $Config{installsitearch},
DETACH_OK => 1,
SO_LIB_PATH_VAR => 'LD_LIBRARY_PATH',
ENV_VAR_PATH_SEP_CP => ':',
IO_REDIR => '2>&1',
+ DEV_NULL => '/dev/null',
COMMAND_COM => 0,
SUB_FIX_CLASSPATH => undef,
JVM_LIB => 'libjvm.so',
@@ -100,6 +116,7 @@ sub portable {
ENV_VAR_PATH_SEP_CP => ';',
# 2>&1 doesn't work under command.com
IO_REDIR => ($COMMAND_COM ? '' : undef),
+ DEV_NULL => 'nul',
COMMAND_COM => $COMMAND_COM,
SO_LIB_PATH_VAR => 'PATH',
DETACH_OK => 0,
--
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