- foreach my $entry (@{ $src }) {
- my $exists = !!$dumped{refaddr($entry) // ''};
- push @{ $dumped{$addr} }, $clone_for_dump->($entry);
+ foreach my $entry (@{ $src }) {
+ my $exists = !!$dumped->{refaddr($entry) // ''};
+ push @{ $dumped->{$addr} }, clone_for_dump($entry, $dumped);