From: Vincent Pit <perl@profvince.com>
Date: Fri, 27 Mar 2009 16:55:46 +0000 (+0100)
Subject: Also skip test 20 in t/Socket.t when no IPv6 is available
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d21dfdd8f25c3ecd360f3295c2fbefd28c0d372a;p=p5sagit%2Fp5-mst-13.2.git

Also skip test 20 in t/Socket.t when no IPv6 is available
---

diff --git a/ext/Socket/t/Socket.t b/ext/Socket/t/Socket.t
index cec72e7..aeeb2a0 100755
--- a/ext/Socket/t/Socket.t
+++ b/ext/Socket/t/Socket.t
@@ -174,6 +174,5 @@ if($Config{d_inetntop} && $Config{d_inetaton}){
     print (lc(inet_ntop(AF_INET6, inet_pton(AF_INET6, "2001:503:BA3E::2:30")) eq "2001:503:ba3e::2:30") ? "ok 20\n" : "not ok 20\n");
 } else {
     # no IPv6 
-    print "ok 18 - skipped on this platform\n";
-    print "ok 19 - skipped on this platform\n";
+    print "ok $_ - skipped on this platform\n" for 18 .. 20;
 }