diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-03-28 02:46:00 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-28 13:47:14 +0000 |
| commit | a5f25d7aeb90fd429ad81529bb602f402d5f9724 (patch) | |
| tree | 378c53bb9463aa9c9a15e5459c90bb41b3adc7d2 /ext/Socket | |
| parent | bc45ce41590a23464acf3b62efacccf60e155a7c (diff) | |
| download | perl-a5f25d7aeb90fd429ad81529bb602f402d5f9724.tar.gz | |
Neuter socketpair on Stratus VOS
Message-Id: <200203281246.HAA14426@mailhub1.stratus.com>
p4raw-id: //depot/perl@15582
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 d70f1642c4..6549eae062 100644 --- a/ext/Socket/socketpair.t +++ b/ext/Socket/socketpair.t @@ -57,7 +57,8 @@ if( !$Config{d_alarm} ) { } else { # This should fail but not die if there is real socketpair eval {socketpair LEFT, RIGHT, -1, -1, -1}; - if ($@ =~ /^Unsupported socket function "socketpair" called/) { + if ($@ =~ /^Unsupported socket function "socketpair" called/ || + $! =~ /^The operation requested is not supported./) { # Stratus VOS plan skip_all => 'No socketpair (real or emulated)'; } else { eval {AF_UNIX}; |