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

[jonathan]

Author: jonathan
Date: Wed Nov 26 10:34:12 2008
New Revision: 33230

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

Log:
[rakudo] Make 'my &x = sub { ... }' store the sub lexically.

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Wed Nov 26 10:34:12 2008
@@ -2293,7 +2293,8 @@
                     );
                 }
 
-                # Add block entry.
+                # Add block entry and set scope.
+                $past.scope($scope);
                 $?BLOCK.symbol($name, :scope($scope));
             }
         }