Address [perl #117999] for now by skipping known bad test on AIX

diff --git a/dist/IO/t/cachepropagate-udp.t b/dist/IO/t/cachepropagate-udp.t
index 6cf1132..6568b2d 100644 (file)
--- a/dist/IO/t/cachepropagate-udp.t
+++ b/dist/IO/t/cachepropagate-udp.t
@@ -31,6 +31,8 @@ SKIP: {
     is($new->protocol(), $p, 'protocol match');
 }
 SKIP: {
+    skip "AIX: getsockopt(SO_TYPE) is badly broken on UDP/UNIX sockets", 1
+        if $^O eq "aix";
     skip "no Socket::SO_TYPE", 1 if !defined(eval { Socket::SO_TYPE });
     skip "SO_TYPE defined but not implemented", 1
        if !defined $new->sockopt(Socket::SO_TYPE);

diff --git a/dist/IO/t/cachepropagate-unix.t b/dist/IO/t/cachepropagate-unix.t
index 228083a..e3e438e 100644 (file)
--- a/dist/IO/t/cachepropagate-unix.t
+++ b/dist/IO/t/cachepropagate-unix.t
@@ -91,6 +91,8 @@ SKIP: {
       is($new->protocol(), $p, 'protocol match');
     }
     SKIP: {
+      skip "AIX: getsockopt(SO_TYPE) is badly broken on UDP/UNIX sockets", 1
+         if $^O eq "aix";
       skip "no Socket::SO_TYPE", 1 if !defined(eval { Socket::SO_TYPE });
       skip "SO_TYPE defined but not implemented", 1
          if !defined $new->sockopt(Socket::SO_TYPE);