# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #93350]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=93350 >
<TimToady> perl6: my @array = <a b c>; @array XR~= 'X'; say ~@array;
<p6eval> niecza v6-177-g365e216: OUTPUT«Unhandled exception: Unable to
resolve method ctxzyg [...]
<p6eval> ..rakudo 7175e5: OUTPUT«a b c»
<p6eval> ..pugs: OUTPUT«***  Unexpected "XR" [...]
<masak> hm. how does Rakudo parse that?
<pmichaud> rakudo parses it exactly the way it reads :)
<TimToady> probably XR[~=]
<masak> why isn't that an erroneous modification of a constant?
<TimToady> maybe that's why niecza blows up on it
* masak submits rakudobug
<TimToady> if so, message is LTA
<jnthn> may be a lack of decontainerization somewhere
<masak> rakudo: my $a = 'a'; $a R~= 'X'; say $a
<p6eval> rakudo 7175e5: OUTPUT«Cannot modify readonly value in
'&infix:<=>' [...]
<masak> rakudo: my $a = 'a'; $a XR~= 'X'; say $a
<p6eval> rakudo 7175e5: OUTPUT«a»
<jnthn> rakudo: ('a' R~ 'b') = 1
<p6eval> rakudo 7175e5: ( no output )
<jnthn> golfd.
<masak> jnthn++
