Integrate mainline

[p5sagit/p5-mst-13.2.git] / lib / Net / Ping / t / 120_udp_inst.t

diff --git a/lib/Net/Ping/t/120_udp_inst.t b/lib/Net/Ping/t/120_udp_inst.t
index 0dc64ad..f7b77b1 100644 (file)
--- a/lib/Net/Ping/t/120_udp_inst.t
+++ b/lib/Net/Ping/t/120_udp_inst.t
@@ -6,6 +6,10 @@ BEGIN {
     print "1..0 \# Skip: no Socket\n";
     exit;
   }
+  unless (getservbyname('echo', 'udp')) {
+    print "1..0 \# Skip: no echo port\n";
+    exit;
+  }
 }
 
 use Test;