X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdebug.t;fp=t%2Fdebug.t;h=62b872170d524627c0c9045d68458aef00b4d5e6;hb=87195072373ca1f3380381c4aba54afeaa82f0df;hp=c0bf1753042a4cce73277cfbd19e508aabdba05c;hpb=7dd7d0088daadec6edede7f44b02afd64019957d;p=p5sagit%2FDevel-Declare.git diff --git a/t/debug.t b/t/debug.t index c0bf175..62b8721 100644 --- a/t/debug.t +++ b/t/debug.t @@ -15,7 +15,7 @@ open PERLDB, ">", "$Bin/../.perldb" or die "Cannot open $Bin/../.perldb: $!"; close PERLDB; $SIG{CHLD} = 'IGNORE'; -$SIG{ALRM} = sub { +$SIG{ALRM} = sub { fail("SIGALRM timeout triggered"); kill(9, $$); };