Front page | perl.perl5.changes |
Postings from May 2011
[perl.git] branch blead, updated. v5.14.0-292-g554bc0f
From:
Craig A. Berry
Date:
May 29, 2011 11:39
Subject:
[perl.git] branch blead, updated. v5.14.0-292-g554bc0f
Message ID:
E1QQktq-0005QE-VD@camel.ams6.corp.booking.com
In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/554bc0f461f4e9d7662d10d7bd81d8c36ba36776?hp=70ca8714dc7a3834580af44acc6d3aa9ff796b98>
- Log -----------------------------------------------------------------
commit 554bc0f461f4e9d7662d10d7bd81d8c36ba36776
Author: Leon Timmermans <fawaka@gmail.com>
Date: Sun May 29 12:59:49 2011 +0200
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.
-----------------------------------------------------------------------
Summary of changes:
t/op/sigdispatch.t | 13 +++++--------
1 files changed, 5 insertions(+), 8 deletions(-)
diff --git a/t/op/sigdispatch.t b/t/op/sigdispatch.t
index aa8a6c7..d36c357 100644
--- a/t/op/sigdispatch.t
+++ b/t/op/sigdispatch.t
@@ -72,14 +72,11 @@ TODO:
}
}
-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';
- }
+ 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';
is $gotit, 2, 'Received fifth signal';
# test unsafe signal handlers in combination with exceptions
--
Perl5 Master Repository
-
[perl.git] branch blead, updated. v5.14.0-292-g554bc0f
by Craig A. Berry