From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 3 Jan 2002 20:22:48 +0000 (+0000)
Subject: Allow emitting the foldcased version of "\x{df}", "ss"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=16ea2a2ed2d9686d5ae4f019e26bf0333aac36a1;p=p5sagit%2Fp5-mst-13.2.git

Allow emitting the foldcased version of "\x{df}", "ss"
(among others, another example would be \x{fb00} -> "ff")

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

diff --git a/regcomp.c b/regcomp.c
index a61d039..cb74043 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3137,7 +3137,7 @@ tryagain:
 		if (ISMULT2(p)) { /* Back off on ?+*. */
 		    if (len)
 			p = oldp;
-		    else if (!UNI_IS_INVARIANT(NATIVE_TO_UNI(ender)) && UTF) {
+		    else if (UTF) {
 			 if (FOLD) {
 			      /* Emit all the Unicode characters. */
 			      for (foldbuf = tmpbuf;
@@ -3162,7 +3162,7 @@ tryagain:
 		    }
 		    break;
 		}
-		if (!UNI_IS_INVARIANT(NATIVE_TO_UNI(ender)) && UTF) {
+		if (UTF) {
 		     if (FOLD) {
 		          /* Emit all the Unicode characters. */
 			  for (foldbuf = tmpbuf;