Re: [ID 20010720.010] WHere's [:isprint:]?

[p5sagit/p5-mst-13.2.git] / ext / POSIX / sigaction.t

diff --git a/ext/POSIX/sigaction.t b/ext/POSIX/sigaction.t
index c38b122..70e8e19 100644 (file)
--- a/ext/POSIX/sigaction.t
+++ b/ext/POSIX/sigaction.t
@@ -117,11 +117,17 @@ eval {
 };
 print $@ ? "ok 17\n" : "not ok 17\n";
 
-$newaction=POSIX::SigAction->new(sub { $ok10=1; });
-sigaction(SIGCONT, POSIX::SigAction->new('DEFAULT'));
-{
-       local($^W)=0;
-       kill 'CONT', $$;
+if ($^O eq '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";