From 92fd341d686f8070e93bb8b19656c69b82966d3d Mon Sep 17 00:00:00 2001 From: Francois Perrad Date: Mon, 15 Apr 2013 13:37:35 +0200 Subject: [PATCH] fix dist/IO/t/cachepropagate-unix.t same fix as in the last commit in cachepropagate-udp.t Signed-off-by: Francois Perrad --- dist/IO/t/cachepropagate-unix.t | 8 ++++++++ 1 file changed, 8 insertions(+) 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'); } } -- 1.8.3.1