This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: EBCDIC fix
authorKarl Williamson <khw@cpan.org>
Mon, 9 Jun 2014 18:28:10 +0000 (12:28 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 21 Oct 2014 15:26:49 +0000 (09:26 -0600)
regcomp.c

index 5fe3c9c..20824e1 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -11364,7 +11364,7 @@ S_alloc_maybe_populate_EXACT(pTHX_ RExC_state_t *pRExC_state,
 
     if (! len_passed_in) {
         if (UTF) {
 
     if (! len_passed_in) {
         if (UTF) {
-            if (UNI_IS_INVARIANT(code_point)) {
+            if (UVCHR_IS_INVARIANT(code_point)) {
                 if (LOC || ! FOLD) {    /* /l defers folding until runtime */
                     *character = (U8) code_point;
                 }
                 if (LOC || ! FOLD) {    /* /l defers folding until runtime */
                     *character = (U8) code_point;
                 }