From: Rafael Kitover <rkitover@cpan.org>
Date: Fri, 20 Feb 2009 22:39:31 +0000 (+0000)
Subject: make sure to not leave zombie processes from Makefile.PL
X-Git-Tag: v0.08240~70
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a0e56cb5b9331e9a5188c61f468f40824166544;p=dbsrgits%2FDBIx-Class.git

make sure to not leave zombie processes from Makefile.PL
---

diff --git a/Makefile.PL b/Makefile.PL
index 1f0bbce..f9551f8 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -126,8 +126,14 @@ EOW
           wait();
           alarm 0;
       };
+      my $exception = $@;
+
       my $sig = $? & 127;
-      if ($@ || $sig == POSIX::SIGSEGV() || $sig == POSIX::SIGABRT()
+
+# make sure process actually dies
+      $exception && kill POSIX::SIGKILL(), $pid;
+
+      if ($exception || $sig == POSIX::SIGSEGV() || $sig == POSIX::SIGABRT()
         || $sig == 7) { # 7 == SIGBUS, haven't seen it but just in case
           warn (<<EOE);