fix .pick and .roll on enums

rakudo · Sep 22, 2010 · 8156beb · 8156beb · colomon · Sep 22, 2010
1 parent 750a024
commit 8156beb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/glue/enum.pm b/src/glue/enum.pm
@@ -8,8 +8,8 @@ our sub SETUP_NAMED_ENUM($name, $values) {
         method WHAT { $enumeration-object }
         method enums { $values }
         method Str { $name }
-        multi method pick(:$replace) { $values.pick($replace) }
-        multi method pick($num, :$replace) { $values.pick($num, $replace) }
+        multi method roll($num = 1) { $values.roll($num) }
+        multi method pick($num = 1) { $values.pick($num) }
         method ACCEPTS($topic) { $topic eqv any $values.values }
     });
     pir::set_hll_global__vPSP(@base_ns, $shortname, $enumeration-object);