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 (file)
--- 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;