Fix bag and keybag failures.

rakudo · Dec 9, 2012 · c481a55 · c481a55
1 parent f122e60
commit c481a55
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Bag.pm b/src/core/Bag.pm
@@ -118,7 +118,7 @@ my class KeyBag does Associative does Baggy {
         sub choose {
             my $choice = $a.rand;
             my $i = 0;
-            for @inverse-mapping -> $im {
+            eager do for @inverse-mapping -> $im {
                 if $choice ~~ $i ..^ +$im.key {
                     return $im.value;
                 }