fix enums without explicit values

rakudo · May 12, 2012 · d2012e2 · d2012e2
1 parent f72c306
commit d2012e2
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2357,6 +2357,12 @@ class Perl6::Actions is HLL::Actions {
                 }
             }
             else {
+                unless $has_base_type {
+                    $base_type := $*W.find_symbol(['Int']);
+                    make_type_obj($base_type);
+                    $has_base_type := 1;
+                }
+
                 $cur_key := $_<compile_time_value>;
                 $cur_value := $cur_value.succ();
             }