diff options
author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2016-11-12 12:42:40 +0100 |
---|---|---|
committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2016-11-12 12:42:40 +0100 |
commit | d18ec13df17c5e14d3ecc903ff761bc2254269bb (patch) | |
tree | f61f7f6467f59ab7f9afe480467cacc71074dfab /dist | |
parent | b5048e7b9abae986778038f1e36281c6175b17e1 (diff) | |
download | perl-d18ec13df17c5e14d3ecc903ff761bc2254269bb.tar.gz |
skip Net::Ping UDP on HP-UX
Diffstat (limited to 'dist')
-rw-r--r-- | dist/Net-Ping/t/510_ping_udp.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dist/Net-Ping/t/510_ping_udp.t b/dist/Net-Ping/t/510_ping_udp.t index aa48e9008b..a154fec1dd 100644 --- a/dist/Net-Ping/t/510_ping_udp.t +++ b/dist/Net-Ping/t/510_ping_udp.t @@ -21,6 +21,7 @@ SKIP: { skip "No udp echo port", 1 unless getservbyname('echo', 'udp'); skip "udp ping blocked by Window's default settings", 1 if isWindowsVista(); skip "No getprotobyname", 1 unless $Config{d_getpbyname}; + skip "Not allowed on HP-UX", 1 if $^O eq "hpux"; my $p = new Net::Ping "udp"; is($p->ping("127.0.0.1"), 1); } |