On Fri, Sep 07, 2001 at 12:27:58AM -0700, Alex Krohn wrote:
> while (1) {
>       {
>               my $var = 'x' x 500000;
>               my $sub = sub { my $sub2 = sub { $var; } };
>       }
>       # $var and $sub should be gone, but memory is never freed
>       sleep 1; # Don't crash things =)
> }
> 
> will grow forever

> it does not grow, definately something strange going on. Happens on
> perl 5.004_04, 5.005_03 and 5.6.1. 

confirmed in bleadperl (patch 11936).  CCing p5p.

atleast one sub { sub{} } leak was fixed recently, but not this one.

- Barrie

Reply via email to