From: Robin Barker <RMBarker@cpan.org>
Date: Tue, 4 Dec 2007 14:05:47 +0000 (+0000)
Subject: PATCH lib/Net/Ping/t/190_alarm.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ced8e525c24905a8360d3d05082f92d662da505;p=p5sagit%2Fp5-mst-13.2.git

PATCH lib/Net/Ping/t/190_alarm.t
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D09396A@exchsvr2.npl.ad.local>

p4raw-id: //depot/perl@32571
---

diff --git a/lib/Net/Ping/t/190_alarm.t b/lib/Net/Ping/t/190_alarm.t
index a032014..4d31f11 100644
--- a/lib/Net/Ping/t/190_alarm.t
+++ b/lib/Net/Ping/t/190_alarm.t
@@ -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;