[libinline-java-perl] 188/398: fixed stuff for 5.005_03

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