This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Jarkko and I think that Perl_is_utf8_alnumc should be initialising
authorNicholas Clark <nick@ccl4.org>
Sun, 30 Oct 2005 21:24:29 +0000 (21:24 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 30 Oct 2005 21:24:29 +0000 (21:24 +0000)
and using PL_utf8_alnum*c*, not PL_utf8_alnum.

p4raw-id: //depot/perl@25908

utf8.c

diff --git a/utf8.c b/utf8.c
index 3818261..f2026c2 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1272,9 +1272,9 @@ Perl_is_utf8_alnumc(pTHX_ const U8 *p)
 {
     if (!is_utf8_char(p))
        return FALSE;
 {
     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)
 /*    return is_utf8_alpha(p) || is_utf8_digit(p); */
 #ifdef SURPRISINGLY_SLOWER  /* probably because alpha is usually true */
     if (!PL_utf8_alnum)