[perl #130366] BagHash/MixHash values don't check for zeroness

[via RT]

# New Ticket Created by  Elizabeth Mattijsen 
# Please include the string:  [perl #130366]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=130366 >


$ 6 'my $b = <a b b c d e f>.BagHash; $_-- for $b.values; dd $b'
BagHash $b = ("a"=>0,"c"=>0,"b"=>1,"e"=>0,"f"=>0,"d"=>0).BagHash
*SHOULD* be BagHash $b = ("b"=>1).BagHash


$ 6 'my $b = <a b b c d e f>.BagHash; .value-- for $b.pairs; dd $b'
BagHash $b = ("a"=>0,"c"=>0,"b"=>1,"e"=>0,"f"=>0,"d"=>0).BagHash
*SHOULD* be BagHash $b = ("b"=>1).BagHash


$ 6 'my $b = <a b b c d e f>.BagHash; $_ = 0 for $b.values; dd $b'
BagHash $b = ("a"=>0,"c"=>0,"b"=>0,"e"=>0,"f"=>0,"d"=>0).BagHash
*SHOULD* be BagHash $b = ("b"=>1).BagHash


Same for MixHash.  Baggy/Mixy need to have the equivalent logic to ISINSET from 
SetHash.


RTing this so it won’t fall through the cracks.