Skip to content

Instantly share code, notes, and snippets.

@AlexDaniel
Forked from dogbert17/test.pl6
Last active July 8, 2017 15:51
Show Gist options
  • Save AlexDaniel/5fc28a793887b7ad13a91fad8cf052fe to your computer and use it in GitHub Desktop.
Save AlexDaniel/5fc28a793887b7ad13a91fad8cf052fe to your computer and use it in GitHub Desktop.
Fails when run normally but works with MVM_SPESH_DISABLE=1
use nqp;
{
constant $read-file = "README.md".IO;
$read-file.IO.r;
for ^1000 {
my $p = Proc::Async.new( | «/bin/cat $read-file» );
my $output = '';
$p.stdout.tap: -> $s { $output ~= $s; };
await $p.start;
nqp::force_gc();
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment