[perl #118453] [BUG] Reassigning to matched-against string and then accessing submatches can lead to substr errors because of binding against the scalar container in Rakudo

[Carl Mäsak]

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


<masak> ok, this is a fun one:
<masak> rn: my $s = 'pre x post'; $s ~~ /^ (<-[x]>+) 'x' (\N+) $/; $s =
~$0; say ~$1
<camelia> niecza v24-75-g480a062: OUTPUT« post␤»
<camelia> ..rakudo b2072f: OUTPUT«Start of substr out of range. Is: 5,
should be in 0..4 [...]
<masak> I'm entirely with Niecza here.
<masak> I think rakudo has... a bug. :)
<masak> of course you should bind to the string itself, not to the scalar
container that holds it.
* masak submits rakudobug
<eternaleye> masak: When you put that ellipsis in your earlier line, I
heard a scare chord.
<eternaleye> "I think rakudo has... [DUNNNN] a bug"
<eternaleye> Complete with that gif of the gopher suddenly turning to the
camera.

<masak> ok, this is a fun one:

<masak> rn: my $s = 'pre x post'; $s ~~ /^ (<-[x]>+) 'x' (\N+) $/; $s = ~$0; say ~$1

<camelia> niecza v24-75-g480a062: OUTPUT« post␤»

<camelia> ..rakudo b2072f: OUTPUT«Start of substr out of range. Is: 5, should be in 0..4 [...]

<masak> I'm entirely with Niecza here.

<masak> I think rakudo has... a bug. :)

<masak> of course you should bind to the string itself, not to the scalar container that holds it.

* masak submits rakudobug

<eternaleye> masak: When you put that ellipsis in your earlier line, I heard a scare chord.

<eternaleye> "I think rakudo has... [DUNNNN] a bug"

<eternaleye> Complete with that gif of the gopher suddenly turning to the camera.