diff options
-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'); } } |