PATCH lib/Net/Ping/t/190_alarm.t
[perl.git] / lib / Net / Ping / t / 190_alarm.t
index a032014..4d31f11 100644 (file)
@@ -4,6 +4,12 @@
 # Based on code written by radu@netsoft.ro (Radu Greab).
 
 BEGIN {
+  if ($ENV{PERL_CORE}) {
+    unless ($ENV{PERL_TEST_Net_Ping}) {
+      print "1..0 \# Skip: network dependent test\n";
+        exit;
+    }
+  }
   unless (eval "require Socket") {
     print "1..0 \# Skip: no Socket\n";
     exit;