From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 22 Jun 2001 21:48:39 +0000 (+0000)
Subject: The croak message for nonexistent socket functions may vary.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5cbfe51a4640b24f3ff7d726c33869f60176805c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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';