From f6a06849d6d334e13d9a80a5facde6932f5ce026 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 25 Jun 2001 19:42:02 +0000 Subject: [PATCH] SIGCONT not trappable in VMS. p4raw-id: //depot/perl@10937 --- ext/POSIX/sigaction.t | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/ext/POSIX/sigaction.t b/ext/POSIX/sigaction.t index 9731125..999592d 100644 --- a/ext/POSIX/sigaction.t +++ b/ext/POSIX/sigaction.t @@ -117,13 +117,17 @@ eval { }; print $@ ? "ok 17\n" : "not ok 17\n"; -$newaction=POSIX::SigAction->new(sub { $ok10=1; }); -if (eval { SIGCONT; 1 }) { - sigaction(SIGCONT, POSIX::SigAction->new('DEFAULT')); - { - local($^W)=0; - kill 'CONT', $$; +if ($^O e 'VMS') { + print "ok 18 # Skip: SIGCONT not trappable in $^O\n"; +} else { + $newaction=POSIX::SigAction->new(sub { $ok10=1; }); + if (eval { SIGCONT; 1 }) { + sigaction(SIGCONT, POSIX::SigAction->new('DEFAULT')); + { + local($^W)=0; + kill 'CONT', $$; + } } + print $bad18 ? "not ok 18\n" : "ok 18\n"; } -print $bad18 ? "not ok 18\n" : "ok 18\n"; -- 2.7.4