check name clashes for enum names

rakudo · Sep 18, 2010 · e59e96d · e59e96d
1 parent 12088a8
commit e59e96d
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1540,6 +1540,11 @@ method type_declarator:sym<enum>($/) {
         unless $*SCOPE eq '' || $*SCOPE eq 'our' {
             $/.CURSOR.panic("Do not yet support $*SCOPE scoped enums");
         }
+
+        if $/.CURSOR.is_name(~$<name>[0]) {
+            $/.CURSOR.panic("Illegal redeclaration of symbol '"
+                             ~ $<name>[0] ~ "'");
+        }
 
         # Install names.
         $/.CURSOR.add_name(~$<name>[0]);