[libinline-java-perl] 161/398: ok

Jonas Smedegaard dr at jones.dk
Thu Feb 26 11:42:59 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 d750d108998832c24150b2eecd71acd3ed6e27f9
Author: patrick_leb <>
Date:   Tue Jan 29 19:17:26 2002 +0000

    ok
---
 Java/JVM.pm      | 13 +++++--------
 Java/Portable.pm |  2 ++
 2 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/Java/JVM.pm b/Java/JVM.pm
index 80e9e28..b3e06b7 100644
--- a/Java/JVM.pm
+++ b/Java/JVM.pm
@@ -81,12 +81,7 @@ sub new {
 
 		my $pid = 0 ;
 		eval {
-			if (Inline::Java::Portable::portable('GOT_FORK')){
-				$pid = $this->launch($cmd) ;
-			}	
-			else{
-				$pid = $this->launch($cmd) ;
-			}
+			$pid = $this->launch($cmd) ;
 		} ;
 		croak "Can't exec JVM: $@" if $@ ;
 
@@ -107,6 +102,9 @@ sub launch {
 	my $this = shift ;
 	my $cmd = shift ;
 
+
+	local $SIG{__WARN__} = sub {} ;
+
 	my $dn = File::Spec->devnull() ;
 	my $in = new IO::File("<$dn") ;
 	if (! defined($in)){
@@ -116,8 +114,7 @@ sub launch {
 	if (! defined($out)){
 		croak "Can't open $dn for writing" ;
 	}
-	
-	local $SIG{__WARN__} = sub {} ;
+
 	my $pid = open3($in, $out, ">&STDERR", $cmd) ;
 
 	close($in) ;
diff --git a/Java/Portable.pm b/Java/Portable.pm
index e82a201..bcace17 100644
--- a/Java/Portable.pm
+++ b/Java/Portable.pm
@@ -80,6 +80,7 @@ sub portable {
 		GOT_FORK			=>	$Config{d_fork} || 0,
 		ENV_VAR_PATH_SEP	=>	$Config{path_sep},
 		SO_EXT				=>	$Config{dlext},
+		DETACH_OK			=>	1,
 		SO_LIB_PATH_VAR		=>	'LD_LIBRARY_PATH',
 		ENV_VAR_PATH_SEP_CP	=>	':',
 		IO_REDIR			=>  '2>&1',
@@ -96,6 +97,7 @@ sub portable {
 			IO_REDIR			=>  ($COMMAND_COM ? '' : undef),
 			COMMAND_COM			=>	$COMMAND_COM,
 			SO_LIB_PATH_VAR		=>	'PATH',
+			DETACH_OK			=>	0,
 			JVM_LIB				=>	'jvm.lib',
 			JVM_SO				=>	'jvm.dll',
 		},

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