diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-09 16:18:20 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-09 16:18:20 +0000 |
| commit | 7e981d1648540066113e26240479238b27adf980 (patch) | |
| tree | 4491501a92b05c7a4c206702cc16e4c5bd69c91c /lib | |
| parent | 0916d4ecb045307387409fcf9da3e6a8fb645a75 (diff) | |
| download | perl-7e981d1648540066113e26240479238b27adf980.tar.gz | |
Tweakback.
p4raw-id: //depot/perl@13551
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Net/hostent.t | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/Net/hostent.t b/lib/Net/hostent.t index c6c721dfe8..b97d723fda 100644 --- a/lib/Net/hostent.t +++ b/lib/Net/hostent.t @@ -44,13 +44,15 @@ is( inet_ntoa($i->addr), "127.0.0.1", 'addr from gethostbyaddr' ); # return the name of the machine instead of "localhost" when resolving # 127.0.0.1 or even "localhost" -# VMS returns "LOCALHOST" under tcp/ip services V4.1 ECO 2, possibly others -# OS/390 returns localhost.YADDA.YADDA +# - VMS returns "LOCALHOST" under tcp/ip services V4.1 ECO 2, possibly others +# - OS/390 returns localhost.YADDA.YADDA SKIP: { skip "Windows will return the machine name instead of 'localhost'", 2 if $^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'cygwin'; + print "# name = ",$h->name, ", aliases = ", join (",", @{$h->aliases}), "\n"; + my $in_alias; unless ($h->name =~ /^localhost(?:\..+)?$/i) { foreach (@{$h->aliases}) { @@ -59,12 +61,11 @@ SKIP: { last; } } + ok( $in_alias ); + } else { + ok( 1 ); } - unless( ok( $in_alias ) ) { - print "# ",$h->name, " ", join (",", @{$h->aliases}), "\n"; - } - if ($in_alias) { # If we found it in the aliases before, expect to find it there again. foreach (@{$h->aliases}) { |