diff options
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 ; |