in value_to_enum, return the type object instead of parrot Null on lo…

…okup failure
rakudo · May 13, 2012 · f4837f5 · f4837f5
1 parent 9c85a3b
commit f4837f5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Metamodel/EnumHOW.pm b/src/Perl6/Metamodel/EnumHOW.pm
@@ -59,7 +59,9 @@ class Perl6::Metamodel::EnumHOW
                 %!value_to_enum{$_.value} := $_;
             }
         }
-        %!value_to_enum{$value}
+        nqp::existskey(%!value_to_enum, $value)
+            ?? %!value_to_enum{$value}
+            !! $obj.WHAT;
     }
 
     method enum_value_list($obj) {