This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to Net::Ping 2.18 (no core-relevant changes,
[perl5.git] / lib / Net / netent.t
index e73122c..125f994 100644 (file)
@@ -8,7 +8,7 @@ BEGIN {
 BEGIN {
     our $hasne;
     eval { my @n = getnetbyname "loopback" };
-    $hasne = 1 unless $@ && $@ =~ /unimplemented/;
+    $hasne = 1 unless $@ && $@ =~ /unimplemented|unsupported/i;
     unless ($hasne) { print "1..0 # Skip: no getnetbyname\n"; exit 0 }
     use Config;
     $hasne = 0 unless $Config{'i_netdb'} eq 'define';