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

Fix "grep in void context" warnings

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

diff --git a/ext/SDBM_File/t/sdbm.t b/ext/SDBM_File/t/sdbm.t
index c687bdc..bf138ce 100644
--- a/ext/SDBM_File/t/sdbm.t
+++ b/ext/SDBM_File/t/sdbm.t
@@ -490,7 +490,7 @@ unlink <Op_dbmx*>, $Dfile;
    $h{"fred"} = "joe" ;
    ok(76, $h{"fred"} eq "joe");
 
-   eval { grep { $h{$_} } (1, 2, 3) };
+   eval { map { $h{$_} } (1, 2, 3) };
    ok (77, ! $@);
 
 
@@ -506,7 +506,7 @@ unlink <Op_dbmx*>, $Dfile;
 
    ok(79, $db->FIRSTKEY() eq "fred") ;
    
-   eval { grep { $h{$_} } (1, 2, 3) };
+   eval { map { $h{$_} } (1, 2, 3) };
    ok (80, ! $@);
 
    undef $db ;