Intermezzo commit

diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm
index 5d9b034..f2346b4 100644 (file)
--- 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 (file)
--- 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->{""};
     }