Tagged 0.981

diff --git a/Changes b/Changes
index 01d9924..b2f7546 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for DBM::Deep.
 
+0.981 Mar 06 11:00:00 2006 Pacific
+    - (RT#17947) - Fixed test that was failing on older Perls
+
 0.98  Feb 28 11:00:00 2006 Pacific
     - Added in patch by David Cantrell to allow use of DATA filehandle
     - Fixed bug where attempting to export() a structure that used autobless would die

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index c6e8c1f..f78a6ee 100644 (file)
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -36,7 +36,7 @@ use Digest::MD5 ();
 use Scalar::Util ();
 
 use vars qw( $VERSION );
-$VERSION = q(0.98);
+$VERSION = q(0.981);
 
 ##
 # Set to 4 and 'N' for 32-bit offset tags (default).  Theoretical limit of 4 GB per file.

diff --git a/t/04_array.t b/t/04_array.t
index 7398265..94251f8 100644 (file)
--- a/t/04_array.t
+++ b/t/04_array.t
@@ -58,7 +58,7 @@ is( $db->[-2], $db->[3], "-2nd index is 3rd index" );
 is( $db->[-3], $db->[2], "-3rd index is 2nd index" );
 is( $db->[-4], $db->[1], "-4th index is 1st index" );
 is( $db->[-5], $db->[0], "-5th index is 0th index" );
-is( $db->[-6], undef, "-6th index is undef" );
+{ my $v = $db->[-6]; is( $v, undef, "-6th index is undef" ); }
 is( $db->length, 5, "... and we have five elements after abortive -6 index lookup" );
 
 $db->[-1] = 'elem4.1';