From d26aeb840ae7108aad9e8d90150ae1d00c1d7836 Mon Sep 17 00:00:00 2001 From: Peter Prymmer Date: Wed, 29 Nov 2000 07:16:45 -0800 Subject: [PATCH] [ID 20001129.007] Not OK: perl v5.7.0 +DEVEL7928 on VMS_AXP V7.1 (UNINSTALLED) Message-Id: In VMS the localhost may be LOCALHOST. p4raw-id: //depot/perl@7933 --- t/lib/net-hostent.t | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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"; } -- 2.7.4