#!./perl -w
BEGIN {
chdir 't' if -d 't';
}
BEGIN {
{
}
}
}
# Remind me to add this to Test::More.
sub DIE {
print "# @_\n";
exit 1;
}
# test basic resolution of localhost <-> 127.0.0.1
use Socket;
# need to skip the name comparisons on Win32 because windows will
# return the name of the machine instead of "localhost" when resolving
# 127.0.0.1 or even "localhost"
# - OS/390 returns localhost.YADDA.YADDA
SKIP: {
my $in_alias;
$in_alias = 1;
last;
}
}
} else {
}
# If we found it in the aliases before, expect to find it there again.
# This time, clear the flag if we see "localhost"
last;
}
}
}
}
else {
}
}