This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regmatch(): remove reginput from CURLYM
authorDavid Mitchell <davem@iabyn.com>
Thu, 13 Sep 2012 10:38:26 +0000 (11:38 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 14 Sep 2012 07:49:35 +0000 (08:49 +0100)
commitc07e9d7bfdcf863c1376d16cbfc8060c6a54c433
treeddeeac5509b2945c4c23a28e72f84fb11ecaefc8
parent37f53970823babaf529f5aedc61fc2696b876b2f
regmatch(): remove reginput from CURLYM

reginput, locinput and st->locinput were being used in a little
ballet to determine the length of the first match.
This is now simply locinput - st->locinput, or its unicode equivalent;
so the code can be simplified.

Elsewhere in the block: where reginput was being used, locinput and/or
nextchr already contain the same info, so use them instead.

This is part of a campaign to eliminate the reginput variable.
regexec.c