[libinline-java-perl] 189/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 73be51ac4b53d32047946d26473734e2b27629c5
Author: patrick_leb <>
Date:   Wed Mar 13 17:05:31 2002 +0000

    Fixed stuff for 5.005_03
---
 Java/JVM.pm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/Java/JVM.pm b/Java/JVM.pm
index 2d562b2..c914522 100644
--- a/Java/JVM.pm
+++ b/Java/JVM.pm
@@ -13,6 +13,8 @@ use POSIX qw(setsid) ;
 
 my %SIGS = () ;
 
+my @SIG_LIST = ('HUP', 'INT', 'PIPE', 'TERM') ;
+
 sub new {
 	my $class = shift ;
 	my $o = shift ;
@@ -20,7 +22,7 @@ sub new {
 	my $this = {} ;
 	bless($this, $class) ;
 
-	foreach my $sig ('HUP', 'INT', 'PIPE', 'TERM'){
+	foreach my $sig (@SIG_LIST){
 		local $SIG{__WARN__} = sub {} ;
 		if (exists($SIG{$sig})){
 			$SIGS{$sig} = $SIG{$sig} ;
@@ -103,7 +105,7 @@ sub launch {
 
 	local $SIG{__WARN__} = sub {} ;
 
-	my $dn = File::Spec->devnull() ;
+	my $dn = Inline::Java::portable("DEV_NULL") ;
 	my $in = new IO::File("<$dn") ;
 	if (! defined($in)){
 		croak "Can't open $dn for reading" ;
@@ -188,7 +190,7 @@ sub shutdown {
 			if ($this->{socket}){
 				# This asks the Java server to stop and die.
 				my $sock = $this->{socket} ;
-				if ($sock->connected()){
+				if ($sock->peername()){
 					Inline::Java::debug("Sending 'die' message to JVM...") ;
 					print $sock "die\n" ;
 				}
@@ -324,7 +326,7 @@ sub capture {
 		return ;
 	}
 
-	foreach my $sig ('HUP', 'INT', 'PIPE', 'TERM'){
+	foreach my $sig (@SIG_LIST){
 		if (exists($SIG{$sig})){
 			$SIG{$sig} = \&Inline::Java::done ;
 		}
@@ -348,7 +350,7 @@ sub release {
 		return ;
 	}
 
-	foreach my $sig qw(HUP INT PIPE TERM){
+	foreach my $sig (@SIG_LIST){
 		local $SIG{__WARN__} = sub {} ;
 		if (exists($SIG{$sig})){
 			$SIG{$sig} = $SIGS{$sig} ;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git