[perl #123989] [BUG] endless loop when calling nextsame in two multis differing only by constraints

[jn...@jnthn.net via RT]

On Thu, 05 Mar 2015 02:12:21 -0800, n...@detonation.org wrote:
> multi foo(Int $foo where * > 0) {
>     say ">0";
>     nextsame;
> }
> multi foo(Int $foo where * < 10) {
>     say "<10";
>     nextsame;
> }
> multi foo($foo) {
>     say "generic";
> }
> foo(1);
> 
> 
> prints:
> >0
> <10
> <10
> <10
> <10
> ...
> and loops endlessly

Fixed and test added to S12-methods/defer-next.t.

/jnthn