# 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.

Reply via email to