Skip to content

Instantly share code, notes, and snippets.

@dogbert17
Last active July 8, 2017 15:54
Show Gist options
  • Save dogbert17/0b0baed4ac8aaf762a3e26f8c74110f1 to your computer and use it in GitHub Desktop.
Save dogbert17/0b0baed4ac8aaf762a3e26f8c74110f1 to your computer and use it in GitHub Desktop.
Fails with ASAN barfage when run normally but works with MVM_SPESH_DISABLE=1
use nqp;
{
constant $read-file = "t/spec/packages/README".IO;
$read-file.IO.r;
for ^80 {
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