Bug#528332: memory leak on perl 5.10

[Niko Tyni]

package perl
forwarded 528332 http://rt.perl.org/rt3/Public/Bug/Display.html?id=53038
tag 528332 fixed-upstream patch
thanks

On Tue, May 12, 2009 at 12:24:35PM +0400, Dmitry E. Oboukhov wrote:
> Package: perl
> Version: 5.10.0-19
> Severity: grave

I really think the severity is inflated. The package is not 'unusable
or mostly so'.

> I've tested this script (see below) under perl 5.8.8 and 5.8.8 does
> not has memory leak.
>     our @set = map { int rand 1000 } 0 .. 50;

I believe this is http://rt.perl.org/rt3/Public/Bug/Display.html?id=53038

which is fixed in maint-5.10 with

http://perl5.git.perl.org/perl.git/commit/8293631c0436

A workaround would be

-    @set = map { int rand 1000 } 0 .. 50;
+    $set[$_]= int( rand 1000) for 0 .. 50;

which doesn't leak here.
-- 
Niko Tyni   ntyni at debian.org