From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 24 Aug 2002 17:01:08 +0000 (+0100)
Subject: remove 2 unit warnings from lib/Net/t/hostname.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4aa30b3f89f2e8d1311d612545c34f6bcdbf308d;p=p5sagit%2Fp5-mst-13.2.git

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