From @skids

$ perl6 -e 'my $r = Supplier.new; my $s = $r.Supply; my $c = $s.Channel; start { for @​$c { "got $_".say }; 42.say; }; sleep 0.5; for 1..4 { $r.emit($_); sleep 0.5 }; $r.quit(X​::AdHoc.new(​:message)); sleep 1;'
got 1
got 2
got 3
got 4
Method 'quit' not found for invocant of class 'Channel'
  in block <unit> at -e line 1

quoting jnthn​: "It's indeed a bug. It should really be calling .fail on the Channel, which should then be resulting in the exception being thrown in the for iteration."

Probably this is as simple as changing line 579 of Supply.pm

From @jnthn

On Sun Feb 28 19​:50​:40 2016, bri@​abrij.org wrote​:

$ perl6 -e 'my $r = Supplier.new; my $s = $r.Supply; my $c =
$s.Channel; start { for @​$c { "got $_".say }; 42.say; }; sleep 0.5;
for 1..4 { $r.emit($_); sleep 0.5 }; $r.quit(X​::AdHoc.new(​:message));
sleep 1;'
got 1
got 2
got 3
got 4
Method 'quit' not found for invocant of class 'Channel'
in block <unit> at -e line 1

quoting jnthn​: "It's indeed a bug. It should really be calling .fail
on the Channel, which should then be resulting in the exception being
thrown in the for iteration."

Probably this is as simple as changing line 579 of Supply.pm

There was a little more to it, since Channel.Supply was also dropping errors rather than passing them along. Fixed that also, and added test coverage to S17-supply/Channel.t.

/jnthn

The RT System itself - Status changed from 'new' to 'open'

@jnthn - Status changed from 'open' to 'resolved'