# New Ticket Created by Aleks-Daniel Jakimenko-Aleksejev
# Please include the string: [perl #132292]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=132292 >
Code:
my $s1 = Supplier.new; $s1.Supply.tap: { say $_; $s1.emit(2) if $++ < 5; say
"here" }; $s1.emit(1)
¦2017.06:
1
2
2
2
2
2
here
here
here
here
here
here
¦HEAD(012c80f):
1
here
2
Possible IRC discussion:
https://irclog.perlgeek.de/perl6-dev/2017-09-21#i_15197905
The behavior change two times, first it started hanging after
(2017-09-18)
https://github.com/rakudo/rakudo/commit/4a8038c2956e863bc661a2a00e8371eb98002608
And then the hang was resolved (incorrectly?) in
(2017-09-22)
https://github.com/rakudo/rakudo/commit/547839200a772e26ea164e9d1fd8c9cd4a5c2d9f
I think the output on 2017.06 makes more sense.
