[perl #112870] [BUG] User-defined operators lose the LTM match even when they ought to win it in Rakudo

[Carl Mäsak]

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


<flussence> r: multi sub infix:<~eq>(Str $a, Str $b) { uc $a eq uc $b
}; say 'Foo' ~eq 'foo'
<p6eval> rakudo d61049: OUTPUT«===SORRY!===␤CHECK FAILED:␤Undefined
routine '&eq' called (line 1)␤»
<tadzik> probably gets parsed as 'Foo' ~ eq('foo')
<PerlJam> sounds like a failure of LTM
<tadzik> aye
<masak> it does.
<masak> r: multi sub infix:<$$$>($a, $b) {}; say 1 $$$ 1
<p6eval> rakudo d61049: OUTPUT«Nil␤»
<masak> hm, seems that Rakudo recognizes new infix operators without a problem.
<masak> r: multi sub infix:<+->($a, $b) { 42 }; say 1 +- 1
<p6eval> rakudo d61049: OUTPUT«0␤»
<tadzik> LTA LTM
<masak> but longest doesn't win if it's user-defined.
* masak submits rakudobug