leaks: 5.16 no leaks: 5.14

storable-leaks.pl

#!perl

{
    package Test;

    sub new { bless pop||{}, shift; }

    sub STORABLE_freeze {
      my ($self) = @_;
      delete $self->{a};
      return $self;
    }

    sub STORABLE_attach {
        my ($class) = @_;
        return $class->new({ c => 3 });
    }
}

use Storable qw/dclone/;

my $c = Test->new({ a => 1,  b => 2 });

while(1) {
    my $d = dclone($c);
}