Skip to content

Commit 554bc0f

Browse files
Leontcraigberry
authored andcommitted
Make sigblocking tests more independent
On VMS, there seems to be a bug when using sigprocmask after sigsuspend. This patch prevents that failure from cascading to the next couple of tests.
1 parent 70ca871 commit 554bc0f

File tree

1 file changed

+5
-8
lines changed

1 file changed

+5
-8
lines changed

t/op/sigdispatch.t

+5-8
Original file line numberDiff line numberDiff line change
@@ -72,14 +72,11 @@ TODO:
7272
}
7373
}
7474

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-
}
75+
POSIX::sigprocmask(&POSIX::SIG_BLOCK, $new);
76+
kill SIGUSR1, $$;
77+
is $gotit, 1, 'Haven\'t received fifth signal yet';
78+
POSIX::sigprocmask(&POSIX::SIG_UNBLOCK, $new, $old);
79+
ok $old->ismember(&POSIX::SIGUSR1), 'SIGUSR1 was still blocked';
8380
is $gotit, 2, 'Received fifth signal';
8481

8582
# test unsafe signal handlers in combination with exceptions

0 commit comments

Comments
 (0)