The croak message for nonexistent socket functions may vary.

p4raw-id: //depot/perl@10846

diff --git a/lib/Net/netent.t b/lib/Net/netent.t
index e73122c..125f994 100644 (file)
--- a/lib/Net/netent.t
+++ b/lib/Net/netent.t
@@ -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';

diff --git a/lib/Net/protoent.t b/lib/Net/protoent.t
index 6c5a154..0c31601 100644 (file)
--- a/lib/Net/protoent.t
+++ b/lib/Net/protoent.t
@@ -8,7 +8,7 @@ BEGIN {
 BEGIN {
     our $haspe;
     eval { my @n = getprotobyname "tcp" };
-    $haspe = 1 unless $@ && $@ =~ /unimplemented/;
+    $haspe = 1 unless $@ && $@ =~ /unimplemented|unsupported/i;
     unless ($haspe) { print "1..0 # Skip: no getprotobyname\n"; exit 0 }
     use Config;
     $haspe = 0 unless $Config{'i_netdb'} eq 'define';

diff --git a/lib/Net/servent.t b/lib/Net/servent.t
index ef4a04d..b476d12 100644 (file)
--- a/lib/Net/servent.t
+++ b/lib/Net/servent.t
@@ -8,7 +8,7 @@ BEGIN {
 BEGIN {
     our $hasse;
     eval { my @n = getservbyname "echo", "tcp" };
-    $hasse = 1 unless $@ && $@ =~ /unimplemented/;
+    $hasse = 1 unless $@ && $@ =~ /unimplemented|unsupported/i;
     unless ($hasse) { print "1..0 # Skip: no getservbyname\n"; exit 0 }
     use Config;
     $hasse = 0 unless $Config{'i_netdb'} eq 'define';