mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

dist/Net-Ping - remove HPUX from the exclusions list in 450_service.t

Browse Source 
We pass these tests just fine on HPUX 11.31.
This commit is contained in:
Yves Orton 2023-03-25 20:28:35 +01:00
parent 55a4ed45c5
commit d31803ec1a
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dist/Net-Ping/lib/Net/Ping.pm vendored
View File

@ -22,7 +22,7 @@ use Time::HiRes;
@ISA = qw(Exporter);
@EXPORT = qw(pingecho);
@EXPORT_OK = qw(wakeonlan);
$VERSION = "2.75";
$VERSION = "2.76";
# Globals

4
dist/Net-Ping/t/450_service.t vendored
View File

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