leak-some-cromery.p6

use Cro::HTTP::Client;
sub foo($build) {
    my $link = “https://whateverable.6lang.org/$build”;

    my $resp = await Cro::HTTP::Client.get($link);
    my $claimed = $resp.header: ‘Content-Disposition’;
    my $filename = ($claimed ~~ /‘filename="’(<.xdigit>+[‘.zst’|‘.lrz’])‘"’/)[0];
    say $filename;
    spurt :bin, $filename, await $resp.body-blob;
}

use Telemetry;
say T<max-rss>.fmt(‘%.2f’) ÷ 1024 ~ ‘MiB maxrss – before doing anything!!’;
for <2016.09 2016.10 2016.11 2016.12 2017.01 2017.02 2017.03> {
    foo $_;
    say T<max-rss>.fmt(‘%.2f’) ÷ 1024 ~ ‘MiB maxrss ’;
}

output

128.660156MiB maxrss – before doing anything!!
｢4b32fcab2192054b82312cde4c235adda0b8ac4d.zst｣
186.773438MiB maxrss 
｢eb3123e5e60fa1635ed1ee121cec1290c290044a.zst｣
206.277344MiB maxrss 
｢f66f8be09c6023b3b53e32f7571ea536ad87b87f.zst｣
212.207031MiB maxrss 
｢b2a3441749878e338b0861b14b3b9433cc902f42.zst｣
220.429688MiB maxrss 
｢78980ed447cceff82f5efef16dbe9ee437aae809.zst｣
235.613281MiB maxrss 
｢aa94ffc33712c6f3068c6472b79a74fa70aa7b2e.zst｣
242.066406MiB maxrss 
｢a0a28432f54d608130f17247f9202f4c4939dfff.zst｣
257.566406MiB maxrss