From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Wed, 25 Feb 2004 11:13:12 +0000 (+0000)
Subject: Skip the Net/Ping/450_service failures on HP-UX for the time being
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff4091f15699664c73b1648f3e0ba5ff2c76be14;p=p5sagit%2Fp5-mst-13.2.git

Skip the Net/Ping/450_service failures on HP-UX for the time being

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

diff --git a/lib/Net/Ping/t/450_service.t b/lib/Net/Ping/t/450_service.t
index 006bf64..21e99f2 100644
--- a/lib/Net/Ping/t/450_service.t
+++ b/lib/Net/Ping/t/450_service.t
@@ -19,7 +19,8 @@ use Net::Ping;
 # for the TCP Server stuff instead of doing
 # all that direct socket() junk manually.
 
-plan tests => 26, ($^O eq 'MSWin32' ? (todo => [18]) : ());
+plan tests => 26, ($^O eq 'MSWin32' ? (todo => [18]) :
+		   $^O eq "hpux"    ? (todo => [9, 18]) : ());
 
 # Everything loaded fine
 ok 1;