diff options
| author | Ricardo SIGNES <rjbs@cpan.org> | 2007-10-22 05:01:09 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-23 10:30:40 +0000 |
| commit | adeb94125ab7de8d20c129a905a5159972ad9fd1 (patch) | |
| tree | d469901e3d9599da12f293264cc97ede6cf6a77b /lib/Net | |
| parent | ada3dff82ecbee957933aca166d1b8a18d488874 (diff) | |
| download | perl-adeb94125ab7de8d20c129a905a5159972ad9fd1.tar.gz | |
hostname.t busted
Message-ID: <20071022130109.GA16748@knight>
p4raw-id: //depot/perl@32180
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/t/hostname.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Net/t/hostname.t b/lib/Net/t/hostname.t index 758d304e78..4013d74aab 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"; |