From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 6 Jan 2008 17:54:19 +0000 (+0000)
Subject: Fix "grep in void context" warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1f27373c61f4199cc288c5b7a4e96b7e2cf245ef;p=p5sagit%2Fp5-mst-13.2.git

Fix "grep in void context" warning

p4raw-id: //depot/perl@32877
---

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index 3ade6b3..6e7029e 100644
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -306,7 +306,7 @@ ok($casespec->{az}->{code} eq '0307' &&
 
 for (1) {my $a=compexcl $_}
 ok(1, 'compexcl read-only $_: perl #7305');
-grep {compexcl $_} %{{1=>2}};
+map {compexcl $_} %{{1=>2}};
 ok(1, 'compexcl read-only hash: perl #7305');
 
 is(Unicode::UCD::_getcode('123'),     123, "_getcode(123)");