Author: pmichaud
Date: Sun Nov 30 19:46:35 2008
New Revision: 33397
Modified:
trunk/languages/perl6/src/parser/actions.pm
Log:
[rakudo]: Clean up handling of implicit lexicals a bit.
Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Sun Nov 30 19:46:35 2008
@@ -3180,7 +3180,7 @@
' set outerlex, $P0["outer";"lexpad";1]')));
for ('$_', '$/', '$!') {
unless $block.symbol($_) {
- my $lex := PAST::Op.new(:inline(' set %r, outerlex[%0]'), $_);
+ my $lex := PAST::Op.new(:inline(' set %r, outerlex["'~$_~'"]'));
my $scope := ($tparam && $_ eq '$_') ?? 'parameter' !! 'lexical';
$block[0].push(
PAST::Var.new( :name($_),
