Author: pmichaud
Date: Thu Dec 18 08:23:06 2008
New Revision: 34068
Modified:
branches/main/languages/perl6/src/parser/actions.pm
Log:
[rakudo]: Fix 'main' generation to actually call !UNIT_START.
Modified: branches/main/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/main/languages/perl6/src/parser/actions.pm (original)
+++ branches/main/languages/perl6/src/parser/actions.pm Thu Dec 18 08:23:06 2008
@@ -31,7 +31,7 @@
# want it to be treated as the module's return value.
$main.push(
PAST::Op.new( :pirop('tailcall'),
- :name('!UNIT_START'),
+ PAST::Op.new( :pirop('find_name'), '!UNIT_START' ),
$past,
PAST::Var.new( :scope('parameter'), :name('@_'), :slurpy(1) )
)
