# New Ticket Created by Zoffix Znet
# Please include the string: [perl #132186]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=132186 >
$ echo 'unit class Foo; constant $RT_RE = rx/« [RT]?"#"? <( <[0..9]>**{5..6}
»/; method x ($e where $RT_RE) {say "in"}' > Foo.pm6
$ perl6 -I. -MFoo -e 'Foo.new.x: "R"'
getlex: outer index out of range
in regex at
/tmp/tmp.pTHyHW456I/.precomp/0F8E2678B84A59BD14F72E830416039936204F36.1506252653.69083/20/201A6B3053CC1422D2C3670B62616221D2290929
line 1
in method x at /tmp/tmp.pTHyHW456I/Foo.pm6 (Foo) line 1
in block <unit> at -e line 1
$ perl6 -v
This is Rakudo version 2017.09-84-gb02da4d built on MoarVM version
2017.09.1-32-g9749b0f
implementing Perl 6.c.