From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 25 Jun 2001 19:42:02 +0000 (+0000)
Subject: SIGCONT not trappable in VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f6a06849d6d334e13d9a80a5facde6932f5ce026;p=p5sagit%2Fp5-mst-13.2.git

SIGCONT not trappable in VMS.

p4raw-id: //depot/perl@10937
---

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";