diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm index 06f42614eff..90799ba4f04 100644 --- a/src/Perl6/Actions.pm +++ b/src/Perl6/Actions.pm @@ -588,7 +588,9 @@ method blorst($/) { } sub add_phaser($/, $bank) { - my $block := $.ast; + my $block := PAST::Block.new( + PAST::Op.new( :pasttype('call'), :name('!YOU_ARE_HERE'), $.ast ) + ); my $subid := $block.subid(); # We always emit code to add the phaser.