perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Eric Cholet <cho...@logilune.com>
Subject Re: t/perl/signals failure
Date Wed, 05 Jan 2005 16:41:21 GMT
Le 5 janv. 05, à 17:20, Stas Bekman a écrit :

> As I've followed up, you didn't miss anything. As I'm not on your 
> platform all I can suggest is to dig into the code, i.e.
> t/response/TestPerl/signals.pm

Thanks, here's what I am seeing in that code:

     if (!$static) {
         local $ENV{PERL_SIGNALS} = "unsafe";

         eval {
             local $SIG{ALRM} = sub { die "alarm" };
             alarm 2;
             run_for_5_sec();
             alarm 0;
         };
         ok t_cmp $@, qr/alarm/, "SIGALRM / unsafe %SIG";
     }

run_for_5_sec() runs for about 2 seconds, and then nothing happens. In
the signal handler I replaced die with warn, but the warn doesn't 
happen.


--
Eric Cholet


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message