Bug#528332: memory leak on perl 5.10

[Dmitry E. Oboukhov]

Tsbdo> sub get_set
Tsbdo> {
Tsbdo> our @set = map { int rand 1000 } 0 .. 50;
'our' or 'my' - it does not matter.

sorry, this our is result of my looking up for workaraund

Tsbdo> return \@set;
Tsbdo> }

Tsbdo> {
Tsbdo> my $set = get_set;
Tsbdo> printf "%s\n", join ", ", @$set;
Tsbdo> redo;
Tsbdo> }

Tsbdo> If we run test.pl under perl 5.8, then it will allocate 832 kB DATA
Tsbdo> memory and can work for a long time (my test worked two hours, but 832
Tsbdo> kb was remained all this time)

Tsbdo> If we run test.pl under debian/stable, perl 5.10, then
Tsbdo> expenditure of memory will constantly go up.

Tsbdo> This bug makes impossible using processes which need a long time to
Tsbdo> fulfil

Tsbdo> PS: Typical get_set is replaced to 'new s-Object'
Tsbdo> and return \@set is replaced to 'bless $link, $class'
--
... mpd is off

. ''`.                               Dmitry E. Oboukhov
: :’  :   email: unera at debian.org jabber://UNera@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: Digital signature
URL: <http://lists.alioth.debian.org/pipermail/perl-maintainers/attachments/20090512/85cb4775/attachment.pgp>