1N/A#!./perl
1N/A
1N/ABEGIN {
1N/A chdir 't' if -d 't';
1N/A @INC = '../lib';
1N/A require Config; import Config;
1N/A if ($Config{'extensions'} !~ /\bSys\/Hostname\b/) {
1N/A print "1..0 # Skip: Sys::Hostname was not built\n";
1N/A exit 0;
1N/A }
1N/A}
1N/A
1N/Ause Sys::Hostname;
1N/A
1N/Aeval {
1N/A $host = hostname;
1N/A};
1N/A
1N/Aif ($@) {
1N/A print "1..0\n" if $@ =~ /Cannot get host name/;
1N/A} else {
1N/A print "1..1\n";
1N/A print "# \$host = `$host'\n";
1N/A print "ok 1\n";
1N/A}