Make sure Baggy.grab cleans up after itself

rakudo · Oct 6, 2013 · 08d0f14 · 08d0f14
1 parent c6b15dc
commit 08d0f14
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/Baggy.pm b/src/core/Baggy.pm
@@ -75,7 +75,9 @@ my role Baggy does QuantHash {
     method pairs() { %!elems.values }
 
     method grab ($count = 1) {
-        ROLLPICKGRAB(self, $count, %!elems.values);
+        my @grab = ROLLPICKGRAB(self, $count, %!elems.values);
+        %!elems{ @grab.map({.WHICH}).grep: { %!elems{$_}.value == 0 } }:delete;
+        @grab;
     }
     method pick ($count = 1) {
         ROLLPICKGRAB(self, $count, %!elems.values.map: { (.key => .value) });