This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regmatch(): remove reginput from IFMATCH etc
authorDavid Mitchell <davem@iabyn.com>
Thu, 13 Sep 2012 10:12:40 +0000 (11:12 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 14 Sep 2012 07:49:35 +0000 (08:49 +0100)
commit37f53970823babaf529f5aedc61fc2696b876b2f
tree83aecd75c6403a124dcffb469ddabfee7699cc73
parenta059a7574089158807ed2ac7bd20a6acd7beb596
regmatch(): remove reginput from IFMATCH etc

It was being used essentially as a temporary var within the branch,
so replace it with a temp var in a new block scope.

On return in IFMATCH_A / IFMATCH_A_fail, there's no need to set reginput
any more, so don't. The SUSPEND case used to set locinput = reginput, but
at that point, the two variables already always had the same value anyway.

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