contrib/perl5/t/lib/hostname.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6 }
   7
   8 use Sys::Hostname;
   9
  10 eval {
  11     $host = hostname;
  12 };
  13
  14 if ($@) {
  15     print "1..0\n" if $@ =~ /Cannot get host name/;
  16 } else {
  17     print "1..1\n";
  18     print "ok 1\n";
  19 }