diff options
| author | Yves Orton <demerphq@gmail.com> | 2008-01-06 21:43:24 +0000 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2008-01-06 21:43:24 +0000 |
| commit | f84167b37281b9fdf1ae6a39e5b09c601c781ffa (patch) | |
| tree | 4e41249745b7f932ad338e94a3d63b048d590384 /ext/GDBM_File | |
| parent | b7c9370f5c2b1d5f577fed166c849b8a86ced93d (diff) | |
| download | perl-f84167b37281b9fdf1ae6a39e5b09c601c781ffa.tar.gz | |
Silence new warning grep in void context warning in various modules and test files, also silence a warning that came from a previous 'dev' version number bump.
p4raw-id: //depot/perl@32883
Diffstat (limited to 'ext/GDBM_File')
| -rw-r--r-- | ext/GDBM_File/GDBM_File.pm | 3 | ||||
| -rwxr-xr-x | ext/GDBM_File/t/gdbm.t | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/ext/GDBM_File/GDBM_File.pm b/ext/GDBM_File/GDBM_File.pm index 641bb01ec9..32dfcfde22 100644 --- a/ext/GDBM_File/GDBM_File.pm +++ b/ext/GDBM_File/GDBM_File.pm @@ -68,7 +68,8 @@ use XSLoader (); GDBM_WRITER ); -$VERSION = "1.08"; +$VERSION = "1.08_01"; +$VERSION = eval $VERSION; sub AUTOLOAD { my($constname); diff --git a/ext/GDBM_File/t/gdbm.t b/ext/GDBM_File/t/gdbm.t index 87e30d086b..53a2ae5d9d 100755 --- a/ext/GDBM_File/t/gdbm.t +++ b/ext/GDBM_File/t/gdbm.t @@ -487,7 +487,7 @@ EOM $h{"fred"} = "joe" ; ok(76, $h{"fred"} eq "joe"); - eval { grep { $h{$_} } (1, 2, 3) }; + eval { my @r= grep { $h{$_} } (1, 2, 3) }; ok (77, ! $@); @@ -503,7 +503,7 @@ EOM ok(79, $db->FIRSTKEY() eq "fred") ; - eval { grep { $h{$_} } (1, 2, 3) }; + eval { my @r= grep { $h{$_} } (1, 2, 3) }; ok (80, ! $@); undef $db ; |