[perl #121213] Multiple invocations of function using CATCH don't work twice

[via RT]

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


The attached script should print the following:

1                                                             
here
2
here
3

but prints this instead:

1
here
2
there
  in sub failing-routine at test.p6:12
  in block  at test.p6:19

Fails on perl6-m.

test.p6
Description: Binary data