summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-01-03 20:22:48 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-01-03 20:22:48 +0000
commit750913d74ca972890859435bebc9adbb734b3bab (patch)
tree3fa0a6ccfd0d4392c08d8ae04dc6b4afa79e8dde /regcomp.c
parent3fe0ae6b5a7de1d5e4316ab3ec080288ef0c3974 (diff)
downloadperl-750913d74ca972890859435bebc9adbb734b3bab.tar.gz
Allow emitting the foldcased version of "\x{df}", "ss"
(among others, another example would be \x{fb00} -> "ff") p4raw-id: //depot/perl@14046
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regcomp.c b/regcomp.c
index a61d03996d..cb740432c3 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;