diff options
| author | Marc Lehmann <pcg@goof.com> | 2000-09-03 11:44:29 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-07 19:12:28 +0000 |
| commit | 289d4f092c382a985bdc9f6c69b13b9b784f67f9 (patch) | |
| tree | 34cfb66cb3f8667f7f699a06f1802f46cd16193d /utf8.c | |
| parent | 50577dabfdb49e7c306a4e348cf2b16310eb61aa (diff) | |
| download | perl-289d4f092c382a985bdc9f6c69b13b9b784f67f9.tar.gz | |
Fix for
Subject: [ID 20000903.001] \w in utf8-strings
Message-Id: <E13VUS5-0000cv-00.pgcc-forever-2000-09-03-09-44-29@fuji>
and various related nits.
p4raw-id: //depot/perl@7030
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -645,7 +645,10 @@ Perl_is_utf8_alnum(pTHX_ U8 *p) if (!is_utf8_char(p)) return FALSE; if (!PL_utf8_alnum) - PL_utf8_alnum = swash_init("utf8", "IsAlnum", &PL_sv_undef, 0, 0); + /* NOTE: "IsWord", not "IsAlnum", since Alnum is a true + * descendant of isalnum(3), in other words, it doesn't + * contain the '_'. --jhi */ + PL_utf8_alnum = swash_init("utf8", "IsWord", &PL_sv_undef, 0, 0); return swash_fetch(PL_utf8_alnum, p); /* return *p == '_' || is_utf8_alpha(p) || is_utf8_digit(p); */ #ifdef SURPRISINGLY_SLOWER /* probably because alpha is usually true */ |