[perl #77112] undefined sub in substitution eval part not detected in parsetime

[via RT]

# New Ticket Created by  Paweł Pabian 
# Please include the string:  [perl #77112]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=77112 >


I cannot find if this was already reported:

when you use sub in {} part in substitution lack of this sub is detected in 
parse time in STD:

[16:25] <bbkr> std: $_ = ""; s/1/{foo()}/; # curious if it will find undefined 
sub in parsetime
[16:25] <p6eval> std 31912: OUTPUT«===SORRY!===␤Undeclared 
routine:␤      'foo' used at line 1␤Check failed␤FAILED 00:02 116m␤»

but it parses on Rakudo:

[16:25] <bbkr> rakudo: $_ = ""; s/1/{foo()}/; # curious if it will find 
undefined sub in parsetime
[16:25] <p6eval> rakudo c1e19a:  ( no output )