[libinline-java-perl] 152/398: Added more localized signal handling.

[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 afef40bd73420a0a85d34b075dd4f21e22f61c17
Author: patrick_leb <>
Date:   Sat Jan 26 03:04:31 2002 +0000

    Added more localized signal handling.
---
 Java.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/Java.pm b/Java.pm
index b008dde..7c9d693 100644
--- a/Java.pm
+++ b/Java.pm
@@ -73,8 +73,6 @@ sub done {
 	
 	Inline::Java::debug("exiting with $ec") ;
 
-	# In Windows, it is possible that the process will hang here if
-	# the children are not all dead. But they should be. Really.
 	exit($ec) ;
 }
 
@@ -86,10 +84,6 @@ END {
 }
 
 
-# Signal stuff, not really needed with JNI
-use sigtrap 'handler', \&done, 'normal-signals' ;
-
-
 # To export the cast function and others.
 sub import {
     Inline::Java->export_to_level(1, @_) ;
@@ -1155,6 +1149,11 @@ sub get_DONE {
 }
 
 
+sub set_DONE {
+	$DONE = 1 ;
+}
+
+
 sub java2perl {
 	my $pkg = shift ;
 	my $jclass = shift ;

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