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 4daad86d12917129bb000874e73dc1c99ffdb795 Author: Patrick LeBoutillier <p...@cpan.org> Date: Fri Nov 2 14:37:07 2001 +0000 *** empty log message *** --- Java/JVM.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Java/JVM.pm b/Java/JVM.pm index 8fc5182..6514f88 100644 --- a/Java/JVM.pm +++ b/Java/JVM.pm @@ -134,12 +134,13 @@ sub setup_socket { my $one_shot = shift ; my $socket = undef ; + my $last_words = "timeout\n" ; + my $got_alarm = Inline::Java::portable("GOT_ALARM") ; + eval { local $SIG{ALRM} = sub { die($last_words) ; } ; - my $got_alarm = Inline::Java::portable("GOT_ALARM") ; - if ($got_alarm){ alarm($timeout) ; } @@ -169,9 +170,13 @@ sub setup_socket { croak "JVM taking more than $timeout seconds to start, or died before Perl could connect. Increase config STARTUP_DELAY if necessary." ; } else{ + if ($got_alarm){ + alarm(0) ; + } croak $@ ; } } + if (! $socket){ croak "Can't connect to JVM: $!" ; } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits