in reply to Status of memory leak problem?

What do you see if you run this? 

#! perl -slw
use strict;
use threads;
use threads::shared;
use Time::HiRes qw[ time ];

my $count :shared = 0;

async{
    my $last = $count;
    while( sleep 1 ) {
        my $now = $count;
        printf "%d threads/second\n", $now - $last;
        $last = $now;
    }
}->detach;

threads->create(
    sub { lock $count; ++$count; }
)->join while 1;

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
"I'd rather go naked than blow up my ass"

Replies are listed 'Best First'.
Re^2: Status of memory leak problem?
by zwon (Abbot) on Apr 03, 2010 at 19:31 UTC

    I see RSS growing about 1M per second with 5.10.1 and 5.12.0-RC1, and about 1M per 3 seconds with 5.8.9

[reply]

      Which platform, and what output from the program?

      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]

        It's Ubuntu 9.10, output is like: 

        268 threads/second
242 threads/second
236 threads/second
231 threads/second
230 threads/second
228 threads/second
228 threads/second

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom