[perl.git] branch blead, updated. v5.17.10-76-g92fd341

[Tony Cook]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/92fd341d686f8070e93bb8b19656c69b82966d3d?hp=085b2bf84ccfcb326dbdec9439d6c36861c3c5f7>

- Log -----------------------------------------------------------------
commit 92fd341d686f8070e93bb8b19656c69b82966d3d
Author: Francois Perrad <francois.per...@gadz.org>
Date:   Mon Apr 15 13:37:35 2013 +0200

    fix dist/IO/t/cachepropagate-unix.t
    
    same fix as in the last commit in cachepropagate-udp.t
    
    Signed-off-by: Francois Perrad <francois.per...@gadz.org>
-----------------------------------------------------------------------

Summary of changes:
 dist/IO/t/cachepropagate-unix.t |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

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

--
Perl5 Master Repository