Change 13551 by jhi@alpha on 2001/12/09 16:18:20
Tweakback.
Affected files ...
.... //depot/perl/lib/Net/hostent.t#3 edit
Differences ...
==== //depot/perl/lib/Net/hostent.t#3 (text) ====
Index: perl/lib/Net/hostent.t
--- perl/lib/Net/hostent.t.~1~ Sun Dec 9 09:30:06 2001
+++ perl/lib/Net/hostent.t Sun Dec 9 09:30:06 2001
@@ -44,13 +44,15 @@
# 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 @@
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}) {
End of Patch.
