diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-05-02 14:12:08 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-02 19:01:04 +0000 |
| commit | 381c1bae8770dba0aec64002bf75d6f4d2e0c0f5 (patch) | |
| tree | 784bf22cb541b4b77761c9742203b9a710b32a83 /ext/Socket | |
| parent | f026e7c66ee549e42ac49df55a1a12a3859701c7 (diff) | |
| download | perl-381c1bae8770dba0aec64002bf75d6f4d2e0c0f5.tar.gz | |
OpenUNIX 8 support
Message-Id: <20030502121208.3d235027.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@19385
Diffstat (limited to 'ext/Socket')
| -rw-r--r-- | ext/Socket/socketpair.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t index 3349f0fd93..9d86be626c 100644 --- a/ext/Socket/socketpair.t +++ b/ext/Socket/socketpair.t @@ -114,7 +114,8 @@ is ($buffer, $expect, "content what we expected?"); 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/; 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'; |