[Bast-commits] r5610 - DBIx-Class/0.08/trunk

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-02-20 22:39:31 +0000 (Fri, 20 Feb 2009)
New Revision: 5610

Modified:
   DBIx-Class/0.08/trunk/Makefile.PL
Log:
make sure to not leave zombie processes from Makefile.PL

Modified: DBIx-Class/0.08/trunk/Makefile.PL
===================================================================
--- DBIx-Class/0.08/trunk/Makefile.PL	2009-02-20 18:39:34 UTC (rev 5609)
+++ DBIx-Class/0.08/trunk/Makefile.PL	2009-02-20 22:39:31 UTC (rev 5610)
@@ -126,8 +126,14 @@
           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);