This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 25850 failed to include all changed headers
[perl5.git] / regexec.c
index d19b82e..e058216 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -2407,7 +2407,7 @@ S_regmatch(pTHX_ regnode *prog)
 #if 0
     I32 firstcp = PL_savestack_ix;
 #endif
-    const register bool do_utf8 = PL_reg_match_utf8;
+    register const bool do_utf8 = PL_reg_match_utf8;
 #ifdef DEBUGGING
     SV *dsv0 = PERL_DEBUG_PAD_ZERO(0);
     SV *dsv1 = PERL_DEBUG_PAD_ZERO(1);