hostname.t busted

Message-ID: <20071022130109.GA16748@knight>

p4raw-id: //depot/perl@32180

diff --git a/lib/Net/t/hostname.t b/lib/Net/t/hostname.t
index 758d304..4013d74 100644 (file)
--- a/lib/Net/t/hostname.t
+++ b/lib/Net/t/hostname.t
@@ -26,7 +26,10 @@ print "1..5\n";
 $domain = domainname();
 
 if(defined $domain && $domain ne "") {
- print "ok 1\n";
+ print "ok 1 - defined, non-empty domainname\n";
+}
+elsif (not defined $domain) {
+ print "ok 1 # SKIP domain not fully defined\n";
 }
 else {
  print "not ok 1\n";