PATCH lib/Net/Ping/t/190_alarm.t
authorRobin Barker <RMBarker@cpan.org>
Tue, 4 Dec 2007 14:05:47 +0000 (14:05 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 4 Dec 2007 14:44:23 +0000 (14:44 +0000)
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D09396A@exchsvr2.npl.ad.local>

p4raw-id: //depot/perl@32571

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;