[perl #131915] [REGRESSION] Proc using more memory since being a Proc::Async

[Aleks-Daniel Jakimenko-Aleksejev via RT]

https://irclog.perlgeek.de/perl6-dev/2017-08-17#i_15032963

On 2017-08-16 14:30:42, alex.jakime...@gmail.com wrote:
> TL;DR it went from 59820 to 215976 after this commit:
>
https://github.com/rakudo/rakudo/commit/92bd7e4f54a92fa660f99b4d056d33a08fb98bd2
>
> Bisect log:
> https://gist.github.com/678ce88a13272eab454a22568f3bddc7
>
> On 2017-08-16 14:24:48, scoli...@gmail.com wrote:
> > Similar to https://rt.perl.org/m/ticket/show?id=131914 it was noticed
> > that there is a huge increase of memory usage after running a simple
> > echo command.
> > Result are in Kbytes.
> >
> > <AlexDaniel> commit:
> > 92bd7e4f54a9^,92bd7e4f54a9,9658dd98c9dd8ec^^,9658dd98c9dd8ec sub mem
> > {
> > "/proc/$*PID/statm".IO.lines[0].split(/\s/)[5] * 4096 / 1024 }; say
> > mem(); run 'echo'; say mem()
> > <committable6test> AlexDaniel, ¦92bd7e4f54a9^: «56444␤␤59820»
> > ¦92bd7e4: «56568␤␤215976» ¦9658dd98c9dd8ec^^: «59212␤␤216660»
> > ¦9658dd9: «139024␤␤305320»