diff options
author | David Mitchell <davem@iabyn.com> | 2012-09-13 20:28:01 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2012-09-14 08:49:35 +0100 |
commit | 730f4c74d6a446d682f5a3ce09166277cf022b9e (patch) | |
tree | 9e2859054fc39606957bd6c436ef3bc54eb5ba0a /regexec.c | |
parent | eb72505db041952a73ba9a9f4714951706fda0c3 (diff) | |
download | perl-730f4c74d6a446d682f5a3ce09166277cf022b9e.tar.gz |
regmatch(): remove remaining reads of reginput
In the remaining place where the value of reginput is used, its value
should always be equal to locinput, so it can be eliminated there.
This is part of a campaign to eliminate the reginput variable.
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -6155,8 +6155,9 @@ no_silent: /* clean up; in particular, free all slabs above current one */ LEAVE_SCOPE(oldsave); - assert(!result || reginput - PL_bostr >= 0); - return result ? reginput - PL_bostr : -1; + assert(!result || reginput == locinput); + assert(!result || locinput - PL_bostr >= 0); + return result ? locinput - PL_bostr : -1; } /* |