# New Ticket Created by Elizabeth Mattijsen
# Please include the string: [perl #131241]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=131241 >
<lizmat> m: my $b = <a b b c c c>.BagHash; $_ = 0 for $b.values; dd $b
<camelia> rakudo-moar 1f80db: OUTPUT: «BagHash $b =
("b"=>0,"a"=>0,"c"=>0).BagHash»
<lizmat> m: my $b = <a b b c c c>.BagHash; $_ = -1 for $b.values; dd $b
<camelia> rakudo-moar 1f80db: OUTPUT: «BagHash $b =
("b"=>-1,"a"=>-1,"c"=>-1).BagHash»
<lizmat> m: my $b = <a b b c c c>.MixHash; $_ = 0 for $b.values; dd $b
<camelia> rakudo-moar 1f80db: OUTPUT: «MixHash $b =
("b"=>0,"a"=>0,"c"=>0).MixHash»
All should empty out the BagHash/MixHash.
