remove 2 unit warnings from lib/Net/t/hostname.t

Message-ID: <20020824160107.GI280@Bagpuss.unfortu.net>
(plus a typo fix)

p4raw-id: //depot/perl@17765

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"