bdw · November 16, 2017 16:44
diff --git a/channel-breakage.pl6 b/channel-breakage.pl6
 #!/usr/bin/env perl6
 use v6;

 for (0..1000) {
    my $channel = Channel.new;
    $channel.close;
    my $result = (try $channel.receive) // buf8;
    say "Result is undefined" unless $result.defined;
 }
	#!/usr/bin/env perl6
	use v6;

	for (0..1000) {
	my $channel = Channel.new;
	$channel.close;
	my $result = (try $channel.receive) // buf8;
	say "Result is undefined" unless $result.defined;
	}