[PATCH]Hash::Util::FieldHash leaks SVs

Hello,

Hash::Util::FieldHash 1.03 leaks SVs which are used as object IDs
stored in mg->mg_obj.

Test::LeakTrace shows this problem:
#!perl -w
use strict;
use Test::More tests => 1;
use Test::LeakTrace 0.06;

use Hash::Util::FieldHash qw(fieldhash);

fieldhash my %hash;
no_leaks_ok{ # or not_leaked() before 0.06
	my $obj = [];
	$hash{$obj}++;
};
__END__

The attached file, FieldHash.patch, will fix it.

Regards,
-- 
Goro Fuji (gfx)

• [PATCH]Hash::Util::FieldHash leaks SVs by Goro Fuji
• Re: [PATCH]Hash::Util::FieldHash leaks SVs by Vincent Pit