summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2012-09-13 20:28:01 +0100
committerDavid Mitchell <davem@iabyn.com>2012-09-14 08:49:35 +0100
commit730f4c74d6a446d682f5a3ce09166277cf022b9e (patch)
tree9e2859054fc39606957bd6c436ef3bc54eb5ba0a /regexec.c
parenteb72505db041952a73ba9a9f4714951706fda0c3 (diff)
downloadperl-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.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index c2aba47701..316bcaf44b 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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;
}
/*