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 | 6be6e3c831cedfe00a71e60a99595fb015d2913d (patch) | |
tree | 436167c25e9a079e02e53a63e1f2be6d6a76ed66 | |
parent | a04fe9f33931a0d03f11e7448318fc873dc82855 (diff) | |
download | perl-6be6e3c831cedfe00a71e60a99595fb015d2913d.tar.gz |
Comment tweak from Hugo.
p4raw-id: //depot/perl@15648
-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) |