[perl #130371] [REGRESSION] return in block does not return from sub that is parameterised with that block

[via RT]

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


my &block = { say 'returning from &block'; return };
sub returned-from(&code) { say 'enter returned-from'; code; say 'leave 
returned-from' };
sub forcing-a-return { returned-from &block };
forcing-a-return;

# OUTPUT«enter returned-from␤returning from &block␤Attempt to return outside of 
any Routine␤  in block <unit> at <tmp> line 1␤␤»
# expected
# OUTPUT«enter returned-from␤returning from &block␤»
# this may be a regression caused by a4ca12afa30be4ce5dfc3602f54a5563d069ffa5