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 e4a39e4..f7b77b1 100644 (file)
--- a/lib/Net/Ping/t/120_udp_inst.t
+++ b/lib/Net/Ping/t/120_udp_inst.t
@@ -2,10 +2,14 @@
 # I do not know of any servers that support udp echo anymore.
 
 BEGIN {
-    unless (eval "require Socket") {
-       print "1..0 # Skip: no Socket\n";
-       exit;
-    }
+  unless (eval "require Socket") {
+    print "1..0 \# Skip: no Socket\n";
+    exit;
+  }
+  unless (getservbyname('echo', 'udp')) {
+    print "1..0 \# Skip: no echo port\n";
+    exit;
+  }
 }
 
 use Test;