# New Ticket Created by
# Please include the string: [perl #124197]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=124197 >
OS: Ubuntu 14.04 LTS on VirtualBox
Host: Windows 8, dual Core i5
Rakudo version: current as of 3/25/2015
This edge case invokes the OOM killer on my test machine. It requires at
least one level of nesting, and is probably analogous to the exponential
backtracking in the '(a(a(a(...)*)*)*)' regular expression, although
that expression will terminate. I don't think this one does :) It is a
fairly extreme edge case, but if I did this by accident I'm sure someone
else will. It also feels like something not resetting pos() after
backtracking, but I don't claim to know the new regex's internals.
The code is here:
--cut here--
grammar Bug {
token blank { \s* }
token TOP { <blank>* }
}
Bug.parse('');
--cut here--
