[perl #132004] [REGEX] Recursion causes infinite loop, even if it can't match anything and another LTM branch can.

[Sam S. via RT]

Shorter example:

    grammar Flail {
        token TOP { <TOP> 'w' | 'v' }
    }

    Flail.subparse('vwwwwww').say;