From d31803ec1abbb4a62f5d68ccd4d3efe312c0cefa Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Sat, 25 Mar 2023 20:28:35 +0100 Subject: dist/Net-Ping - remove HPUX from the exclusions list in 450_service.t We pass these tests just fine on HPUX 11.31. --- dist/Net-Ping/lib/Net/Ping.pm | 2 +- dist/Net-Ping/t/450_service.t | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'dist') 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'); } } -- cgit v1.2.1