NT> package perl NT> forwarded 528332 http://rt.perl.org/rt3/Public/Bug/Display.html?id=53038 NT> tag 528332 fixed-upstream patch NT> thanks
NT> On Tue, May 12, 2009 at 12:24:35PM +0400, Dmitry E. Oboukhov wrote:
>> Package: perl
>> Version: 5.10.0-19
>> Severity: grave
NT> I really think the severity is inflated. The package is not 'unusable
NT> 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;
NT> I believe this is http://rt.perl.org/rt3/Public/Bug/Display.html?id=53038
NT> which is fixed in maint-5.10 with
NT> http://perl5.git.perl.org/perl.git/commit/8293631c0436
NT> A workaround would be
NT> - @set = map { int rand 1000 } 0 .. 50;
NT> + $set[$_]= int( rand 1000) for 0 .. 50;
NT> which doesn't leak here.
Thank for point the radix of the problem. I'll think.
About severity: This bug touches a lot of perl modules and perl
programs. Even a few modules which were installed by me and perl
standard modules use map more than 3000 times:
$ find /usr/share/perl /usr/share/perl5 -name \*.pm|xargs grep
'[^[:alpha:]]map[^[:alpha:]]'|wc -l
3364
$ find /usr/share/perl /usr/share/perl5 -name \*.pm|wc -l
3849
roughly: ~ 90% of all modules use map (which has memory leak)
I think, this bug touches all (majority) programs/scripts which
use perl. Of course part of them are easy scripts which work not
long time. But many people use as program as mod_perl, etc.
If i am wrong, please change severity.
--
... mpd is off
. ''`. Dmitry E. Oboukhov
: :’ : email: un...@debian.org jabber://un...@uvw.ru
`. `~’ GPGKey: 1024D / F8E26537 2006-11-21
`- 1B23 D4F8 8EC0 D902 0555 E438 AB8C 00CF F8E2 6537
signature.asc
Description: Digital signature
