[svn:parrot] r33527 - trunk/languages/perl6/src/parser

[jonathan]

Author: jonathan
Date: Fri Dec  5 14:36:10 2008
New Revision: 33527

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo] Fix lookup of attributes in nested scopes of methods when they are 
declared twigilless.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Fri Dec  5 14:36:10 2008
@@ -2496,6 +2496,7 @@
                         if defined( $sym_table )
                                 && $sym_table<scope> eq 'attribute' {
                             $name := '!' ~ $name;
+                            $twigil := '!';
                         }
                     }
                 }