From: Rob Kinyon <rob.kinyon@gmail.com>
Date: Mon, 25 Jan 2010 13:51:50 +0000 (-0500)
Subject: Intermezzo commit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb1daf85db12c62f559fba91afc7b369d12f5eb6;p=dbsrgits%2FDBM-Deep.git

Intermezzo commit
---

diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm
index 5d9b034..f2346b4 100644
--- a/lib/DBM/Deep/Engine.pm
+++ b/lib/DBM/Deep/Engine.pm
@@ -414,6 +414,8 @@ sub _descend {
         %$value = %temp;
         bless $value, 'DBM::Deep::Hash' unless Scalar::Util::blessed( $value );
     }
+
+    return;
 }
 
 1;
diff --git a/t/55_recursion.t b/t/55_recursion.t
index edec0d9..707f9f5 100644
--- a/t/55_recursion.t
+++ b/t/55_recursion.t
@@ -13,7 +13,7 @@ while ( my $dbm_maker = $dbm_factory->() ) {
 
     my $h = {};
     my $tmp = $h;
-    for (1..4) { # 98 is ok, 99 is bad.
+    for (1..99) { # 98 is ok, 99 is bad.
         %$tmp = ("" => {});
         $tmp = $tmp->{""};
     }