[perl #126789] A caught exception still exits a sub ?

[via RT]

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




[01:02:33]  <lizmat>    m: sub a($a) { $a(); CATCH { default { say "default" } 
}; 42 }; say a( -> { die } )   # shorter version
[01:02:33]  <camelia>   rakudo-moar f0a96d: OUTPUT«default␤Nil␤»
[01:02:43]  <lizmat>    I sorta expect this to say 42
[01:02:48]  <lizmat>    am I wrong ?


This is the cause of the failure in t/spec/S17-scheduler/at.t