diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-02 20:58:19 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-02 20:58:19 +0000 |
| commit | 44dd01776cb5c3f704edbcd874beced643715d5a (patch) | |
| tree | 431950457e85c119ad16a46825544f6a2637ad34 /ext | |
| parent | 127212b23933541d95e57814dfd91e6456b50ddd (diff) | |
| download | perl-44dd01776cb5c3f704edbcd874beced643715d5a.tar.gz | |
Skip a socketpair test on SCO OSR
p4raw-id: //depot/perl@19940
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Socket/socketpair.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t index 9d86be626c..95d424a5c5 100644 --- a/ext/Socket/socketpair.t +++ b/ext/Socket/socketpair.t @@ -115,7 +115,7 @@ ok (shutdown(LEFT, SHUT_WR), "shutdown left for writing"); # This will hang forever if eof is buggy, and alarm doesn't interrupt system # Calls. Hence the child process minder. SKIP: { - skip "SCO OpenUNIX has a bug with shutdown", 2 if $^O =~ /^svr/; + skip "SCO Unixware / OSR have a bug with shutdown",2 if $^O =~ /^(?:svr|sco)/; local $SIG{ALRM} = sub { warn "EOF on right took over 3 seconds" }; local $TODO = "Known problems with unix sockets on $^O" if $^O eq 'hpux' || $^O eq 'super-ux'; |