[perl #116348] [BUG] infix:<...> shouldn't autothread because of a junction in the RHS in Rakudo

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #116348]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=116348 >


<[Coke]> r: sub postfix:<!!> ($x) { my $a = $x %% 2 ?? 2 !! 3; [*] $a,
$a+2 ... $x } ; say 4!!; say 5!!
<p6eval> rakudo e26703: OUTPUT«8␤15␤»
<masak> r: sub postfix:<!!>($x) { [*] $x, $x - 2 ... 2|3 }; say 4!!; say 5!!
<p6eval> rakudo e26703: OUTPUT«(timeout)»
<masak> huh!
<masak> r: sub postfix:<!!>($x) { [*] $x, $x - 2 ... any(2, 3) }; say
4!!; say 5!!
<p6eval> rakudo e26703: OUTPUT«(timeout)»
<masak> something's wrong here.
<masak> "I notice that I am confused."
<jnthn> Maybe.
<jnthn> I think the 2|3 may be auto-threading earlier than any("you
expect", "it should be")
<jnthn> So it results in two sequences
<jnthn> One of which never terminates.
<masak> oh!
<masak> jnthn: yes, I think you're right.
<TimToady> the RHS of ... should be able to do a smartmatch, so
shouldn't autothread, I'd think
* masak submits rakudobug
<jnthn> TimToady: wfm, it's probably not hard to fix it that way.
<TimToady> I certainly expected 2|3 to work there