diff options
| author | Yves Orton <demerphq@gmail.com> | 2023-03-25 20:28:35 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2023-03-29 20:54:49 +0800 |
| commit | d31803ec1abbb4a62f5d68ccd4d3efe312c0cefa (patch) | |
| tree | 93ae25e2c827bdfa50734535b0c8a2fa1f3202f1 /dist | |
| parent | 55a4ed45c550acec2a3344e99c853bc457515295 (diff) | |
| download | perl-d31803ec1abbb4a62f5d68ccd4d3efe312c0cefa.tar.gz | |
dist/Net-Ping - remove HPUX from the exclusions list in 450_service.t
We pass these tests just fine on HPUX 11.31.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Net-Ping/lib/Net/Ping.pm | 2 | ||||
| -rw-r--r-- | dist/Net-Ping/t/450_service.t | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/dist/Net-Ping/lib/Net/Ping.pm b/dist/Net-Ping/lib/Net/Ping.pm index 0b7be8c2c0..b4c8f2f80b 100644 --- a/dist/Net-Ping/lib/Net/Ping.pm +++ b/dist/Net-Ping/lib/Net/Ping.pm @@ -22,7 +22,7 @@ use Time::HiRes; @ISA = qw(Exporter); @EXPORT = qw(pingecho); @EXPORT_OK = qw(wakeonlan); -$VERSION = "2.75"; +$VERSION = "2.76"; # Globals diff --git a/dist/Net-Ping/t/450_service.t b/dist/Net-Ping/t/450_service.t index dd1bd4ca31..8bfd91ef17 100644 --- a/dist/Net-Ping/t/450_service.t +++ b/dist/Net-Ping/t/450_service.t @@ -78,7 +78,7 @@ is($p->ping("127.0.0.1"), 1, 'first port is reachable'); $p->{port_num} = $port2; { - local $TODO = "Believed not to work on $^O" if $^O =~ /^(?:hpux|MSWin32|os390)$/; + local $TODO = "Believed not to work on $^O" if $^O =~ /^(?:MSWin32|os390)$/; is($p->ping("127.0.0.1"), 1, 'second port is reachable'); } @@ -133,7 +133,7 @@ SKIP: { { local $TODO = "Believed not to work on $^O" - if $^O =~ /^(?:hpux|MSWin32|os390)$/; + if $^O =~ /^(?:MSWin32|os390)$/; is($p->ack(), '127.0.0.1', 'IP should be reachable'); } } |