X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=f9551f84e63fd3aa837b85fc8b4e11fcf130abde;hb=9beded8a680abbc0bd7776ec47f9fb69d7392d5c;hp=38a89db3b6e7734b38a9d8ef1d1ddb33a54d8ed9;hpb=f466f65bc9bc276da0ae840d661c4bab11495837;p=dbsrgits%2FDBIx-Class.git diff --git a/Makefile.PL b/Makefile.PL index 38a89db..f9551f8 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -126,8 +126,15 @@ EOW wait(); alarm 0; }; + my $exception = $@; + my $sig = $? & 127; - if ($@ || $sig == POSIX::SIGSEGV) { + +# 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 (<