This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Part Integrate mainline
[perl5.git] / ext / POSIX / sigaction.t
index 70e8e19..1045db6 100644 (file)
@@ -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";
     }