Sync with libnet 1.18

[p5sagit/p5-mst-13.2.git] / lib / Net / t / hostname.t

diff --git a/lib/Net/t/hostname.t b/lib/Net/t/hostname.t
index e085591..9db66a9 100644 (file)
--- a/lib/Net/t/hostname.t
+++ b/lib/Net/t/hostname.t
@@ -32,11 +32,11 @@ else {
  print "not ok 1\n";
 }
 
-# This check thats hostanme does not overwrite $_
+# This checks thats hostanme does not overwrite $_
 my @domain = qw(foo.example.com bar.example.jp);
 my @copy = @domain;
 
-my @dummy = grep { hostname eq $_ } @domain;
+my @dummy = grep { defined hostname() and hostname() eq $_ } @domain;
 
 ($domain[0] && $domain[0] eq $copy[0])
   ? print "ok 2\n"