perl-core/libnet/files/1.22-hostname.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

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";