diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-22 21:48:39 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-22 21:48:39 +0000 |
| commit | 5cbfe51a4640b24f3ff7d726c33869f60176805c (patch) | |
| tree | 11465d28fa78fa8f3625595be5e4163c9abd6372 /lib/Net/netent.t | |
| parent | 153bc26b6a875c4675157b479d77ce90db22d88a (diff) | |
| download | perl-5cbfe51a4640b24f3ff7d726c33869f60176805c.tar.gz | |
The croak message for nonexistent socket functions may vary.
p4raw-id: //depot/perl@10846
Diffstat (limited to 'lib/Net/netent.t')
| -rw-r--r-- | lib/Net/netent.t | 2 |
1 files changed, 1 insertions, 1 deletions
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'; |