From 5cbfe51a4640b24f3ff7d726c33869f60176805c Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 22 Jun 2001 21:48:39 +0000
Subject: The croak message for nonexistent socket functions may vary.

p4raw-id: //depot/perl@10846
---
 lib/Net/netent.t   | 2 +-
 lib/Net/protoent.t | 2 +-
 lib/Net/servent.t  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/Net')

diff --git a/lib/Net/netent.t b/lib/Net/netent.t
index e73122ccc4..125f994962 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 6c5a1547b3..0c3160157b 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 ef4a04dee8..b476d12b67 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';
-- 
cgit v1.2.1