diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-06 17:56:03 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-06 17:56:03 +0000 |
| commit | c57cf257e9e5820063963c3520086480a9afb695 (patch) | |
| tree | dad142abcf1c2be396869c5c8d2948aecb2f5fcf /ext/SDBM_File | |
| parent | 1f27373c61f4199cc288c5b7a4e96b7e2cf245ef (diff) | |
| download | perl-c57cf257e9e5820063963c3520086480a9afb695.tar.gz | |
Fix "grep in void context" warnings
p4raw-id: //depot/perl@32878
Diffstat (limited to 'ext/SDBM_File')
| -rw-r--r-- | ext/SDBM_File/t/sdbm.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/SDBM_File/t/sdbm.t b/ext/SDBM_File/t/sdbm.t index c687bdcb00..bf138ce777 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 ; |