[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