Memory leak localizing a tied variable

The script appended below demonstrates a memory leak when doing a
local() on a tied variable.

I found this because someone reported that local($dbh->{RaiseError})=1
(and similar) leaked memory and thought it maybe a DBI bug.
The script demonstrates that it's not.

Perl 5.005 and 5.006 leak but 5.004 doesn't. I've not got a 5.7.0
handy. I'd be grateful if someone could test it on the current bleadperl.

Thanks.

Tim.

#!/usr/local/bin/perl -w

print "localizing tied variable leak test for perl $]...\n";
# 5.006   does leak
# 5.00503 does leak
# 5.00404 doesn't leak

use strict;
use Tie::Hash;
tie my %tie_hash => 'Tie::StdHash';

my $count = 0;
my $ps = (-d '/proc') ? "ps -lp " : "ps -l";

mem_test() while 1;

sub mem_test {
    system("echo $count; $ps$$") if (($count++ % 1000) == 0);
    local($tie_hash{Foo}) = 1;
}

• Memory leak localizing a tied variable by Tim Bunce
• Re: Memory leak localizing a tied variable by Jarkko Hietaniemi
• Re: Memory leak localizing a tied variable by nick
• Re: Memory leak localizing a tied variable by Gurusamy Sarathy
• Re: Memory leak localizing a tied variable by Simon Cozens
• Re: Memory leak localizing a tied variable by Ronald J Kimball
• Re: Memory leak localizing a tied variable by Jarkko Hietaniemi