Commit | Line | Data |
---|---|---|
406c51ee | 1 | |
2 | use Net::Domain qw(hostname domainname hostdomain); | |
3 | use Net::Config; | |
4 | ||
5 | unless($NetConfig{test_hosts}) { | |
6 | print "1..0\n"; | |
7 | exit 0; | |
8 | } | |
9 | ||
10 | print "1..1\n"; | |
11 | ||
12 | $domain = domainname(); | |
13 | ||
14 | if(defined $domain && $domain ne "") { | |
15 | print "ok 1\n"; | |
16 | } | |
17 | else { | |
18 | print "not ok 1\n"; | |
19 | } |