Re: t/perl/signals failure

[Eric Cholet]

Le 5 janv. 05, � 17:41, Eric Cholet a �crit :
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.
I forgot to mention that after those 2 seconds, I see this is the error 
log:

[Wed Jan 05 17:36:54 2005] [notice] child pid 29676 exit signal Alarm 
clock (14)

--
Eric Cholet
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]