This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Do not add the first characters of multicharacter foldings
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 3 Jan 2002 20:36:38 +0000 (20:36 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 3 Jan 2002 20:36:38 +0000 (20:36 +0000)
into character classes.

p4raw-id: //depot/perl@14048

regcomp.c

index cb74043..aacae22 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4025,9 +4025,10 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
                         to_utf8_fold(tmpbuf, foldbuf, &foldlen);
                         f = utf8_to_uvchr(foldbuf, 0);
 
-                        /* If folding and foldable, insert also
-                         * the folded version to the charclass. */
-                        if (f != value)
+                        /* If folding and foldable and a single
+                         * character, insert also the folded version
+                         * to the charclass. */
+                        if (f != value && foldlen == UNISKIP(f))
                              Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\n", f);
 
                         /* If folding and the value is one of the Greek