From: Francois Perrad <francois.perrad@gadz.org>
Date: Mon, 15 Apr 2013 11:37:35 +0000 (+0200)
Subject: fix dist/IO/t/cachepropagate-unix.t
X-Git-Tag: v5.17.11~10
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/92fd341d686f8070e93bb8b19656c69b82966d3d

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
--- 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');
     }
 }