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: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
