diff options
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/sigaction.t | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/ext/POSIX/sigaction.t b/ext/POSIX/sigaction.t index 9731125311..999592dad6 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"; |