diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-25 19:42:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-25 19:42:02 +0000 |
| commit | f6a06849d6d334e13d9a80a5facde6932f5ce026 (patch) | |
| tree | e707d6fe20b28399188bcfaf6e785e350426097b | |
| parent | 71a18b0f67a20c74607b2a7b7b5cd5d77463b980 (diff) | |
| download | perl-f6a06849d6d334e13d9a80a5facde6932f5ce026.tar.gz | |
SIGCONT not trappable in VMS.
p4raw-id: //depot/perl@10937
| -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"; |