From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 5 Sep 2001 23:22:38 +0000 (+0000)
Subject: In UNICOS sigaction() sets an extra flag
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b13b12d159376c20fb496e6765d02b35e0a9b4a5;p=p5sagit%2Fp5-mst-13.2.git

In UNICOS sigaction() sets an extra flag
("the signal has been registered for all the processes in
a multitasking group.")

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

diff --git a/ext/POSIX/sigaction.t b/ext/POSIX/sigaction.t
index 70e8e19..1045db6 100644
--- a/ext/POSIX/sigaction.t
+++ b/ext/POSIX/sigaction.t
@@ -54,8 +54,8 @@ if($oldaction->{HANDLER} eq '::foo')
 if($oldaction->{MASK}->ismember(SIGUSR1))
   { print "ok 5\n" } else { print "not ok 5\n"}
 if($oldaction->{FLAGS}) {
-    if ($^O eq 'linux') {
-	print "ok 6 # Skip: sigaction() broken in $^O\n";
+    if ($^O eq 'linux' || $^O eq 'unicos') {
+	print "ok 6 # Skip: sigaction() thinks different in $^O\n";
     } else {
 	print "not ok 6\n";
     }