From: Peter Prymmer <PPrymmer@factset.com>
Date: Wed, 29 Nov 2000 15:16:45 +0000 (-0800)
Subject: [ID 20001129.007] Not OK: perl v5.7.0 +DEVEL7928 on VMS_AXP V7.1 (UNINSTALLED)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d26aeb840ae7108aad9e8d90150ae1d00c1d7836;p=p5sagit%2Fp5-mst-13.2.git

[ID 20001129.007] Not OK: perl v5.7.0 +DEVEL7928 on VMS_AXP V7.1 (UNINSTALLED)
Message-Id: <Pine.OSF.4.10.10011291515570.328738-100000@aspara.forte.com>

In VMS the localhost may be LOCALHOST.

p4raw-id: //depot/perl@7933
---

diff --git a/t/lib/net-hostent.t b/t/lib/net-hostent.t
index 3388a93..4a5df80 100644
--- a/t/lib/net-hostent.t
+++ b/t/lib/net-hostent.t
@@ -30,12 +30,14 @@ print "ok 3\n";
 # 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
+
 if ($^O eq 'MSWin32') {
   print "ok $_ # skipped on win32\n" for (4,5);
 } else {
-  print "not " if $h->name ne "localhost";
-  print "ok 4\n";
+  print "not " if $h->name !~ /localhost/i;
+  print "ok 4 # ",$h->name,"\n";
 
-  print "not " if $i->name ne "localhost";
-  print "ok 5\n";
+  print "not " if $i->name !~ /localhost/i;
+  print "ok 5 # ",$i->name,"\n";
 }