We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 70ca871 commit 554bc0fCopy full SHA for 554bc0f
t/op/sigdispatch.t
@@ -72,14 +72,11 @@ TODO:
72
}
73
74
75
-TODO:
76
- {
77
- local $::TODO = "Needs investigation" if $^O eq 'VMS';
78
- kill SIGUSR1, $$;
79
- is $gotit, 1, 'Haven\'t received fifth signal yet';
80
- POSIX::sigprocmask(&POSIX::SIG_UNBLOCK, $new, $old);
81
- ok $old->ismember(&POSIX::SIGUSR1), 'SIGUSR1 was still blocked';
82
- }
+ POSIX::sigprocmask(&POSIX::SIG_BLOCK, $new);
+ 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';
83
is $gotit, 2, 'Received fifth signal';
84
85
# test unsafe signal handlers in combination with exceptions
0 commit comments