Better fix for RT #131270, fixes RT #131272

This breaks the latest added too specific tests for RT #131270.
rakudo · May 8, 2017 · 31be512 · 31be512
1 parent 60f8981
commit 31be512
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/core/Baggy.pm b/src/core/Baggy.pm
@@ -518,9 +518,7 @@ my role Baggy does QuantHash {
           !! self!ROLLPICKGRABN($count, %!elems.values, :keep);
     }
 
-    method !ROLLPICKGRABN(\count, @pairs, :$keep) { # N times
-        nqp::istype(count, Int)
-        || X::Invalid::ComputedValue.new(:name<count>, :value(count)).throw;
+    method !ROLLPICKGRABN(Int() $count, @pairs, :$keep) { # N times
         Seq.new(class :: does Iterator {
             has Int $!total;
             has int $!elems;
@@ -566,7 +564,7 @@ my role Baggy does QuantHash {
                 }
                 IterationEnd
             }
-        }.new(self.total,@pairs,$keep,count))
+        }.new(self.total,@pairs,$keep,$count))
     }
 
 #--- classification method