[perl #130886] multi subs with inconsistent where clauses don't work correctly

[via RT]

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


This prints the numbers 1 to 9 then fails with a constraint error

    my \one-out-of-ten = 
(|(False,False,False,False,False,False,False,False,False,True) xx *).iterator;

    multi sub rarely ( $_ where one-out-of-ten.pull-one ){ say "test $_"; 
nextsame}
    multi sub rarely ( $_ ) { .say }

    (1..100).map: &rarely;

If I switch it so that it usually matches it doesn't fail

    my \nine-out-of-ten = 
(|(False,True,True,True,True,True,True,True,True,True) xx *).iterator;

    multi sub often ( $_ where nine-out-of-ten.pull-one ){ say "test $_"; 
nextsame }
    multi sub often ( $_ ) { .say }

    (1..100).map: &often;

It does seem as if the constraint is being called twice
because the first skip is on 5.



The reason I stumbled across this I thought something like this
could be good for logging one out of every ten inputs.