From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 3 Jan 2002 20:36:38 +0000 (+0000)
Subject: Do not add the first characters of multicharacter foldings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c840d2a2e622be21c991f6d4225a584596d7273e;p=p5sagit%2Fp5-mst-13.2.git

Do not add the first characters of multicharacter foldings
into character classes.

p4raw-id: //depot/perl@14048
---

diff --git a/regcomp.c b/regcomp.c
index cb74043..aacae22 100644
--- 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