diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-10-30 21:24:29 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-10-30 21:24:29 +0000 |
| commit | 4abdcbc71156b739b85f79e712697dce357ec625 (patch) | |
| tree | 8e414400587959cedcb9872523e6e8037ffd139c | |
| parent | bde6a22dcca88b3dbc1d9cf29b0617a35e8b97fe (diff) | |
| download | perl-4abdcbc71156b739b85f79e712697dce357ec625.tar.gz | |
Jarkko and I think that Perl_is_utf8_alnumc should be initialising
and using PL_utf8_alnum*c*, not PL_utf8_alnum.
p4raw-id: //depot/perl@25908
| -rw-r--r-- | utf8.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1272,9 +1272,9 @@ Perl_is_utf8_alnumc(pTHX_ const U8 *p) { if (!is_utf8_char(p)) return FALSE; - if (!PL_utf8_alnum) - PL_utf8_alnum = swash_init("utf8", "IsAlnumC", &PL_sv_undef, 0, 0); - return swash_fetch(PL_utf8_alnum, p, TRUE) != 0; + if (!PL_utf8_alnumc) + PL_utf8_alnumc = swash_init("utf8", "IsAlnumC", &PL_sv_undef, 0, 0); + return swash_fetch(PL_utf8_alnumc, p, TRUE) != 0; /* return is_utf8_alpha(p) || is_utf8_digit(p); */ #ifdef SURPRISINGLY_SLOWER /* probably because alpha is usually true */ if (!PL_utf8_alnum) |