The first big import towards 5.8.1, @18078. Please do NOT

[perl5.git] / lib / Net / t / hostname.t

diff --git a/lib/Net/t/hostname.t b/lib/Net/t/hostname.t
index e085591..7e94b23 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 that hostname does not overwrite $_
 my @domain = qw(foo.example.com bar.example.jp);
 my @copy = @domain;
 
-my @dummy = grep { hostname eq $_ } @domain;
+my @dummy = grep { hostname && $_ } @domain;
 
 ($domain[0] && $domain[0] eq $copy[0])
   ? print "ok 2\n"