This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid duplicate table look ups.
authorKarl Williamson <public@khwilliamson.com>
Tue, 28 Aug 2012 21:29:42 +0000 (15:29 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 28 Aug 2012 22:24:47 +0000 (16:24 -0600)
commitcd94d768f5ef1ad750828e00ebe7ea2e19a1b237
tree5b8a9d0ab834f3482c4bcd183ebf1119b7653b9e
parent27d4fc33343f0dd4287f0e7b9e6b4ff67c5d8399
Avoid duplicate table look ups.

These two spots both are matching 'c+' where 'c' is some character
against a Unicode table.  Prior to this patch, if it matched a single
'c', it would fall into a while loop, where it matches that same 'c'
again.  Simply increment the pointer past the first match, and the while loop
will start looking for succeeding matches starting with the next
character in the input.
regexec.c