Merged with master and am ready to merge back

[dbsrgits/DBM-Deep.git] / t / 04_array.t

diff --git a/t/04_array.t b/t/04_array.t
index 07c9763..fe518db 100644 (file)
--- a/t/04_array.t
+++ b/t/04_array.t
@@ -242,8 +242,7 @@ while ( my $dbm_maker = $dbm_factory->() ) {
         $db->exists();
     } qr/Cannot use an undefined array index/, "EXISTS fails on an undefined key";
 }
-done_testing;
-__END__
+
 # Bug reported by Mike Schilli
 # Also, RT #29583 reported by HANENKAMP
 $dbm_factory = new_dbm( type => DBM::Deep->TYPE_ARRAY );
@@ -272,3 +271,21 @@ while ( my $dbm_maker = $dbm_factory->() ) {
 }
 
 done_testing;
+__END__
+{ # Make sure we do not trigger a deep recursion warning [RT #53575]
+    my $w;
+    local $SIG{__WARN__} = sub { $w = shift };
+    my ($fh, $filename) = new_fh();
+    my $db = DBM::Deep->new( file => $filename, fh => $fh, );
+    my $a = [];
+    my $tmp = $a;
+    for(1..100) {
+        ($tmp) = @$tmp = [];
+    }
+    ok eval {
+        $db->{""} = $a;
+    }, 'deep recursion in array assignment' or diag $@;
+    is $w, undef, 'no warnings with deep recursion in array assignment';
+}
+
+done_testing;