Update KeyBag.new-from-pairs so that it doesn't issue warnings.

sorear · Jun 9, 2013 · 6314dd4 · 6314dd4
1 parent b15a162
commit 6314dd4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -2474,7 +2474,8 @@ class KeyBag does Associative does Baggy {
     method new-from-pairs(@pairs --> Bag) {
         my %e;
         for @pairs {
-            $_ ~~ Pair ?? %e{.key} += .value !! %e{$_}++;
+            when Pair { %e{.key} = .value + (%e{.key} // 0); }
+            %e{$_}++;
          }
         for %e -> $p {
             die "Negative values are not allowed in KeyBags" if $p.value < 0;