From @ilyabelikin

Hi there,

my $foo = 'foo'; say $foo = 'foo' ~ 'a';
fooa

my $foo = 'foo'; say $foo R~= 'foo';
0foo

may be it should not work at all, but currently behaviour is strange.

Ilya

From @moritz

On Sat Apr 18 01​:37​:34 2009, ihrd wrote​:

Hi there,

my $foo = 'foo'; say $foo = 'foo' ~ 'a';
fooa

my $foo = 'foo'; say $foo R~= 'foo';
0foo

may be it should not work at all, but currently behaviour is strange.

FYI, STD.pm says "Can't reverse a concatenation because it's too
fiddly", so it should probably be a parse error as well.

The RT System itself - Status changed from 'new' to 'open'

From @kyleha

This is an automatically generated mail to inform you that tests are now available in t/spec/S03-operators/assign.t

commit 0d46a3f0651a2f1cf8c93390bbc9cbb5c59bd353
Author​: kyle <kyle@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Sun Aug 2 20​:38​:29 2009 +0000

  [t/spec] Test for RT #​64818
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;27857 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-operators/assign.t b/t/spec/S03-operators/assign.t
index 3c98bee..c94ca4c 100644
--- a/t/spec/S03-operators/assign.t
+++ b/t/spec/S03-operators/assign.t
@@ -6,7 +6,7 @@ use Test;
 #                      V
 # L<S03/Changes to Perl 5 operators/list assignment operator now parses on the right>
 
-plan 238;
+plan 239;
 
 
 # tests various assignment styles
@@ -319,6 +319,10 @@ my @p;
     is(@p[1],'plugh', "~= operator parses as item assignment 2");
 }
 
+# RT #64818
+eval_dies_ok q{my $foo = 'foo'; $foo R~= 'foo';},
+             'R~= operator is a parse error';
+
 {
     my $x = "abc";
     @p = $x x= 3, 4;

From @kyleha

On today's Rakudo, this "R~=" thing does not parse (says "No applicable
methods"), but that error message could be a bit more awesome, I think.

From @bbkr

On * build

[12​:00] <bbkr> rakudo​: my $foo = "foo"; say $foo R~= "foo"
[12​:00] <p6eval> rakudo 9b6189​: OUTPUT«Cannot modify readonly valueâ�¤ in
'&infix​:<=>' at line 1â�¤ in 'reverseargs' at line 130​:CORE.settingâ�¤ in
main program body at line 1�»

From @moritz

On Mon Aug 02 03​:02​:42 2010, bbkr wrote​:

On * build

[12​:00] <bbkr> rakudo​: my $foo = "foo"; say $foo R~= "foo"
[12​:00] <p6eval> rakudo 9b6189​: OUTPUT«Cannot modify readonly valueâ�¤ in
'&infix​:<=>' at line 1â�¤ in 'reverseargs' at line 130​:CORE.settingâ�¤ in
main program body at line 1�»

This is correct behaviour; however

12​:06 < moritz_> rakudo​: my ($x, $y) = <a b>; $x R~= $y; say "$x $y"
12​:06 <+p6eval> rakudo 9b6189​: OUTPUT«a aâ�¤Â»

does not look good.

From @diakopter

On Mon Aug 02 03​:07​:18 2010, moritz wrote​:

On Mon Aug 02 03​:02​:42 2010, bbkr wrote​:

On * build

[12​:00] <bbkr> rakudo​: my $foo = "foo"; say $foo R~= "foo"
[12​:00] <p6eval> rakudo 9b6189​: OUTPUT«Cannot modify readonly
value� in
'&infix​:<=>' at line 1â�¤ in 'reverseargs' at line
130​:CORE.settingâ�¤ in
main program body at line 1�»

This is correct behaviour; however

12​:06 < moritz_> rakudo​: my ($x, $y) = <a b>; $x R~= $y; say "$x $y"
12​:06 <+p6eval> rakudo 9b6189​: OUTPUT«a aâ�¤Â»

does not look good.

works now. marking testneeded.

17​:16 < diakopter> rakudo​: my ($x, $y) = <a b>; $x R~= $y; say "$x $y"
17​:16 <+p6eval> rakudo 024843​: OUTPUT«a baâ�¤Â»
17​:16 < diakopter> n​: my ($x, $y) = <a b>; $x R~= $y; say "$x $y"
17​:16 <+p6eval> niecza v18-1-gc86e3f0​: OUTPUT«a baâ�¤Â»
17​:16 < diakopter> sorear​: are those right? if so, I'll close rakudo's
#​64818
17​:37 < sorear> diakopter​: I do beleive so

From @diakopter

On Tue May 29 15​:44​:21 2012, diakopter wrote​:

On Mon Aug 02 03​:07​:18 2010, moritz wrote​:

On Mon Aug 02 03​:02​:42 2010, bbkr wrote​:

On * build

[12​:00] <bbkr> rakudo​: my $foo = "foo"; say $foo R~= "foo"
[12​:00] <p6eval> rakudo 9b6189​: OUTPUT«Cannot modify readonly
value� in
'&infix​:<=>' at line 1â�¤ in 'reverseargs' at line
130​:CORE.settingâ�¤ in
main program body at line 1�»

This is correct behaviour; however

12​:06 < moritz_> rakudo​: my ($x, $y) = <a b>; $x R~= $y; say "$x $y"
12​:06 <+p6eval> rakudo 9b6189​: OUTPUT«a aâ�¤Â»

does not look good.

works now. marking testneeded.

17​:16 < diakopter> rakudo​: my ($x, $y) = <a b>; $x R~= $y; say "$x $y"
17​:16 <+p6eval> rakudo 024843​: OUTPUT«a baâ�¤Â»
17​:16 < diakopter> n​: my ($x, $y) = <a b>; $x R~= $y; say "$x $y"
17​:16 <+p6eval> niecza v18-1-gc86e3f0​: OUTPUT«a baâ�¤Â»
17​:16 < diakopter> sorear​: are those right? if so, I'll close
rakudo's
#​64818
17​:37 < sorear> diakopter​: I do beleive so

fixed/added tests to matched expected behavior. it does in fact parse
(as STD allows), and works in both rakudo and niecza.

@diakopter - Status changed from 'open' to 'resolved'