[perl #79180] LTA error message in substr()

[via RT]

# New Ticket Created by  Tadeusz Sośnierz 
# Please include the string:  [perl #79180]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=79180 >


> perl6 -e 'say "hello".substr(*-1, 1)'
maximum recursion depth exceeded
  in 'Cool::Numeric' at line 1818:CORE.setting
  in 'Cool::Numeric' at line 1818:CORE.setting
  in 'Cool::Num' at line 7269:CORE.setting
  in 'Cool::Numeric' at line 1818:CORE.setting
  in 'Cool::Numeric' at line 1818:CORE.setting
  in 'Cool::Num' at line 7269:CORE.setting
  in 'Cool::Numeric' at line 1818:CORE.setting
  in 'Cool::Numeric' at line 1818:CORE.setting
  in 'Cool::Num' at line 7269:CORE.setting
  ...