eval { POSIX::sigsuspend(POSIX::SigSet->new) };
is $@, "FAIL\n", 'Exception is thrown, so received fourth signal';
POSIX::sigprocmask(&POSIX::SIG_BLOCK, undef, $old);
+TODO:
+ {
+ local $::TODO = "Needs investigation" if $^O eq 'VMS';
ok $old->ismember(&POSIX::SIGUSR1), 'SIGUSR1 is still blocked';
+ }
}
- kill SIGUSR1, $$;
- is $gotit, 1, 'Haven\'t received fifth signal yet';
- POSIX::sigprocmask(&POSIX::SIG_UNBLOCK, $new, $old);
- ok $old->ismember(&POSIX::SIGUSR1), 'SIGUSR1 was still blocked';
+TODO:
+ {
+ local $::TODO = "Needs investigation" if $^O eq 'VMS';
+ kill SIGUSR1, $$;
+ is $gotit, 1, 'Haven\'t received fifth signal yet';
+ POSIX::sigprocmask(&POSIX::SIG_UNBLOCK, $new, $old);
+ ok $old->ismember(&POSIX::SIGUSR1), 'SIGUSR1 was still blocked';
+ }
is $gotit, 2, 'Received fifth signal';
# test unsafe signal handlers in combination with exceptions