memory leaking with closures

[Alex Krohn]

Hi,

With this simple test script:

print "Content-type: text/html\n\n";
my $var = 'x' x 500000;
my $sub = sub { my $sub2 = sub { $var; }; };
print "Done\n";

$var does not get freed, and the process grows each request. Has anyone
seen this sort of behavior and have any ideas/workarounds (besides don't
do that). 

Cheers,

Alex