[perl #130825] `CHECK/INIT return` inside a sub causes incorrect (?) error and segv respectively

[via RT]

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


00:27   IOninja m: sub {CHECK return; class :: { 5000; 42 } }()
00:27   camelia rakudo-moar 80e0bc: OUTPUT: «===SORRY!===␤Attempt to return 
outside of any Routine␤»
00:27   IOninja m: sub {INIT return; class :: { 5000; 42 } }()
00:27   camelia rakudo-moar 80e0bc: OUTPUT: «(signal SEGV)WARNINGS for 
<tmp>:␤Useless use of constant integer 42 in sink context (line 1)␤Useless use 
of constant integer 5000 in sink context (line 1)␤»