diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-10-31 12:31:11 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-31 16:09:42 -0700 |
| commit | f7ab54c630d4ff497dfc2435654b5aee46420b17 (patch) | |
| tree | f890d538d685d4eaa5d5e52834a3755b197903fa /regexec.c | |
| parent | bf3f2d85838ef8cae6a146bc0d731316fbdb3554 (diff) | |
| download | perl-f7ab54c630d4ff497dfc2435654b5aee46420b17.tar.gz | |
reginclass: Rename variable for clarity
Several other variables in the routine have the previous name
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -6205,19 +6205,19 @@ S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n, const char flags = ANYOF_FLAGS(n); bool match = FALSE; UV c = *p; - STRLEN len = 0; + STRLEN c_len = 0; STRLEN maxlen; PERL_ARGS_ASSERT_REGINCLASS; /* If c is not already the code point, get it */ if (utf8_target && !UTF8_IS_INVARIANT(c)) { - c = utf8n_to_uvchr(p, UTF8_MAXBYTES, &len, + c = utf8n_to_uvchr(p, UTF8_MAXBYTES, &c_len, (UTF8_ALLOW_DEFAULT & UTF8_ALLOW_ANYUV) | UTF8_ALLOW_FFFF | UTF8_CHECK_ONLY); /* see [perl #37836] for UTF8_ALLOW_ANYUV; [perl #38293] for * UTF8_ALLOW_FFFF */ - if (len == (STRLEN)-1) + if (c_len == (STRLEN)-1) Perl_croak(aTHX_ "Malformed UTF-8 character (fatal)"); } @@ -6236,7 +6236,7 @@ S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n, if (utf8_target || (flags & ANYOF_UNICODE)) { if (utf8_target && !ANYOF_RUNTIME(n)) { - if (len != (STRLEN)-1 && c < 256 && ANYOF_BITMAP_TEST(n, c)) + if (c_len != (STRLEN)-1 && c < 256 && ANYOF_BITMAP_TEST(n, c)) match = TRUE; } if (!match && utf8_target && (flags & ANYOF_UNICODE_ALL) && c >= 256) |