From: Karl Williamson <public@khwilliamson.com>
Date: Wed, 9 Nov 2011 05:20:37 +0000 (-0700)
Subject: regcomp.c: Change char used to force reading in fold swashes
X-Git-Tag: v5.15.5~129
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/f26f1b9ce33a811c1a4ea00612a18101543a46fd

regcomp.c: Change char used to force reading in fold swashes

Future commits will change things so that a latin1 character no longer
will go out to disk to load a swash.
---

diff --git a/regcomp.c b/regcomp.c
index f9bf717..1d1bf27 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -10454,7 +10454,10 @@ parseit:
 		if (! PL_utf8_tofold) {
 		    U8 dummy[UTF8_MAXBYTES+1];
 		    STRLEN dummy_len;
-		    to_utf8_fold((U8*) "A", dummy, &dummy_len);
+
+		    /* This particular string is above \xff in both UTF-8 and
+		     * UTFEBCDIC */
+		    to_utf8_fold((U8*) "\xC8\x80", dummy, &dummy_len);
 		    assert(PL_utf8_tofold); /* Verify that worked */
 		}
 		PL_utf8_foldclosures = _swash_inversion_hash(PL_utf8_tofold);