[Pkg-privacy-commits] [msva-perl] 185/356: avoid re-setting the exit code after waiting for upgrade monitoring process to terminate

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to branch debian
in repository msva-perl.

commit 0c2e32f392227c20bff140ce771a6f3be336a765
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Tue Oct 26 23:18:52 2010 -0400

    avoid re-setting the exit code after waiting for upgrade monitoring process to terminate
---
 Crypt/Monkeysphere/MSVA/Monitor.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Crypt/Monkeysphere/MSVA/Monitor.pm b/Crypt/Monkeysphere/MSVA/Monitor.pm
index aad42b7..237e55b 100644
--- a/Crypt/Monkeysphere/MSVA/Monitor.pm
+++ b/Crypt/Monkeysphere/MSVA/Monitor.pm
@@ -161,9 +161,10 @@ Would you like to restart the validation agent?");
   sub DESTROY {
     my $self = shift;
     if (defined $self->{monitorpid}) {
-      # SIGTERM is 15:
-      kill(15, $self->{monitorpid});
+      kill('TERM', $self->{monitorpid});
+      my $oldexit = $?;
       waitpid($self->{monitorpid}, 0);
+      $? = $oldexit;
       undef($self->{monitorpid});
     }
   }

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