| commit adeb94125ab7de8d20c129a905a5159972ad9fd1 |
| Author: Ricardo SIGNES <rjbs@cpan.org> |
| Date: Mon Oct 22 05:01:09 2007 -0400 |
| |
| 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 |
| --- 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"; |