# New Ticket Created by Stefan Seifert # Please include the string: [perl #123989] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=123989 >
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
