enable calling a fully qualified enum key

rakudo · May 16, 2010 · 87e0e1b · 87e0e1b
1 parent 32150d5
commit 87e0e1b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1378,6 +1378,7 @@ method type_declarator:sym<enum>($/) {
         $/.CURSOR.add_name(~$<name>[0]);
         for $result {
             $/.CURSOR.add_name(~$_.key);
+            $/.CURSOR.add_name(~$<name>[0] ~ '::' ~ ~$_.key);
         }
 
         # Emit code to set up named enum.