[perl #127563] repeat while loop not being entered when inside a routine and block

[via RT]

# New Ticket Created by  Sylvain Colinet 
# Please include the string:  [perl #127563]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=127563 >


<masak> m: sub foo($c) { return if $c == 0; { say "B $c"; repeat { say "A
$c"; foo($c -1) } while 0 } }; foo(3)
<camelia> rakudo-moar 027096: OUTPUT«B 3␤A 3␤B 2␤»

Should not stop and continue :)

-- 
Sylvain "Skarsnik" Colinet

Victory was near but the power of the ring couldn't be undone