Memory leak

[dpanech]

Leaks memory when passed an expression that returns a non-existent hash value (which should be effectively undef). For example the following loop leaks ~70 MiB per second on my system.

use Clone;
my $data = {};
while(1) {
    Clone::clone ($data->{no_such_key});
};

However if you save the hash value in an intermediate variable, it doesn't leak:

use Clone;
my $data = {};
while(1) {
    my $tmp = $data->{no_such_key};
    Clone::clone ($tmp);
};

Environment
I was able to reproduce it in these environments:

• Clone 0.46, perl v5.30.1, CentOS 7 x86_64
• Clone 0.34, perl v5.16.3, CentOS 7 x86_64,