[perl #107306] regex fails unless alternates are sorted by length

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


Here is a test case where nom (and b, too) fails to parse unless the
words are sorted longest-first. Niecza handles this OK.


my @words = <north northeast>;

print "unsorted (fails): ";
say 'northeast' ~~ / ^ <{join '|', @words }> $ / ?? "parsed $/" !! 'no parse';
print "sorted (passes): ";
say 'northeast' ~~ / ^ <{join '|', @words.sort({ $^b.chars cmp
$^a.chars }) }> $ / ?? "parsed $/" !! 'no parse';

• [perl #107306] regex fails unless alternates are sorted by length by Timothy Smith