Permalink
Browse files

Fix (Bag|BagHash).roll(*)

  • Loading branch information...
1 parent 087165f commit 2f18b45520addfd3b166c651b04fe3bf35920996 @lizmat lizmat committed Nov 18, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/core/Baggy.pm
View
@@ -90,7 +90,7 @@ my role Baggy does QuantHash {
my $total = $self.total;
my $todo = $count ~~ Num
?? $total min $count
- !! ($count ~~ Whatever ?? $total !! $count);
+ !! ($count ~~ Whatever ?? ( $keep ?? $Inf !! $total ) !! $count);
map {
my $rand = $total.rand.Int;

0 comments on commit 2f18b45

Please sign in to comment.