From: Jarkko Hietaniemi Date: Sun, 9 Dec 2001 16:18:20 +0000 (+0000) Subject: Tweakback. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e981d1648540066113e26240479238b27adf980;p=p5sagit%2Fp5-mst-13.2.git Tweakback. p4raw-id: //depot/perl@13551 --- diff --git a/lib/Net/hostent.t b/lib/Net/hostent.t index c6c721d..b97d723 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}) {