From: Jarkko Hietaniemi <jhi@iki.fi>
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}) {