fix dist/IO/t/cachepropagate-unix.t

same fix as in the last commit in cachepropagate-udp.t

Signed-off-by: Francois Perrad <francois.perrad@gadz.org>

diff --git a/dist/IO/t/cachepropagate-unix.t b/dist/IO/t/cachepropagate-unix.t
index 30c8473..228083a 100644 (file)
--- a/dist/IO/t/cachepropagate-unix.t
+++ b/dist/IO/t/cachepropagate-unix.t
@@ -50,10 +50,14 @@ SKIP: {
     is($new->sockdomain(), $d, 'domain match');
   SKIP: {
       skip "no Socket::SO_PROTOCOL", 1 if !defined(eval { Socket::SO_PROTOCOL });
+      skip "SO_PROTOCOL defined but not implemented", 1
+         if !defined $new->sockopt(Socket::SO_PROTOCOL);
       is($new->protocol(), $p, 'protocol match');
     }
   SKIP: {
       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);
       is($new->socktype(), $s, 'type match');
     }
 
@@ -82,10 +86,14 @@ SKIP: {
     is($new->sockdomain(), $d, 'domain match');
     SKIP: {
       skip "no Socket::SO_PROTOCOL", 1 if !defined(eval { Socket::SO_PROTOCOL });
+      skip "SO_PROTOCOL defined but not implemented", 1
+         if !defined $new->sockopt(Socket::SO_PROTOCOL);
       is($new->protocol(), $p, 'protocol match');
     }
     SKIP: {
       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);
       is($new->socktype(), $s, 'type match');
     }
 }