[perl #132107] [LTA] Error talks about negative substrings when attempting to match `/)> ... <(/`

[via RT]

# New Ticket Created by  Zoffix Znet 
# Please include the string:  [perl #132107]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=132107 >


zoffix@VirtualBox~$ rakudo -e 'say "foo" ~~ /)> ... <(/'                        
                                                                                
                                                                                
               
Substring length (-3) cannot be negative
  in block <unit> at -e line 1

zoffix@VirtualBox~$ rakudo -v
This is Rakudo version 2017.07-209-g26287a1 built on MoarVM version 
2017.07-467-gf22f8d7
implementing Perl 6.c.