This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
41f31d6
)
In UNICOS sigaction() sets an extra flag
author
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 5 Sep 2001 23:22:38 +0000
(23:22 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 5 Sep 2001 23:22:38 +0000
(23:22 +0000)
("the signal has been registered for all the processes in
a multitasking group.")
p4raw-id: //depot/perl@11900
ext/POSIX/sigaction.t
patch
|
blob
|
blame
|
history
diff --git
a/ext/POSIX/sigaction.t
b/ext/POSIX/sigaction.t
index
70e8e19
..
1045db6
100644
(file)
--- 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";
}