summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-04-01 02:42:41 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-04-01 02:42:41 +0000
commit2e2bac5588af6a9148912ecf6bc2d8772b33a522 (patch)
tree436167c25e9a079e02e53a63e1f2be6d6a76ed66 /regexec.c
parent0f247f17e3de88ea0e1d96101a0ef56a3b9a48a4 (diff)
downloadperl-2e2bac5588af6a9148912ecf6bc2d8772b33a522.tar.gz
Comment tweak from Hugo.
p4raw-id: //depot/perl@15648
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index a2c0c72f73..8db2dc27b5 100644
--- a/regexec.c
+++ b/regexec.c
@@ -3605,14 +3605,14 @@ S_regmatch(pTHX_ regnode *prog)
else {
STRLEN len;
if (c1 == c2) {
- /* count initialised to 0 or 1 */
+ /* count initialised to utf8_distance(old, locinput) */
while (locinput <= e &&
utf8_to_uvchr((U8*)locinput, &len) != c1) {
locinput += len;
count++;
}
} else {
- /* count initialised to 0 or 1 */
+ /* count initialised to utf8_distance(old, locinput) */
while (locinput <= e) {
UV c = utf8_to_uvchr((U8*)locinput, &len);
if (c == c1 || c == c2)