diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 02:42:41 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-01 02:42:41 +0000 |
commit | 2e2bac5588af6a9148912ecf6bc2d8772b33a522 (patch) | |
tree | 436167c25e9a079e02e53a63e1f2be6d6a76ed66 /regexec.c | |
parent | 0f247f17e3de88ea0e1d96101a0ef56a3b9a48a4 (diff) | |
download | perl-2e2bac5588af6a9148912ecf6bc2d8772b33a522.tar.gz |
Comment tweak from Hugo.
p4raw-id: //depot/perl@15648
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) |