In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d07720777420713ab21c454e35fa4c04a729510b?hp=755cc9a5df44deae0c5b0edd809d1146d1ef9efe>
- Log ----------------------------------------------------------------- commit d07720777420713ab21c454e35fa4c04a729510b Author: Jarkko Hietaniemi <[email protected]> Date: Mon Apr 17 16:57:51 2017 +0300 Net-Ping udp not allowed in AIX or IRIX, either. ----------------------------------------------------------------------- Summary of changes: dist/Net-Ping/t/510_ping_udp.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dist/Net-Ping/t/510_ping_udp.t b/dist/Net-Ping/t/510_ping_udp.t index a154fec1dd..025e980392 100644 --- a/dist/Net-Ping/t/510_ping_udp.t +++ b/dist/Net-Ping/t/510_ping_udp.t @@ -21,7 +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"; + skip "Not allowed on $^O", 1 if $^O =~ /^(hpux|irix|aix)$/; my $p = new Net::Ping "udp"; is($p->ping("127.0.0.1"), 1); } -- Perl5 Master Repository
