1 files changed, 10 insertions, 3 deletions
diff --git a/regexec.c b/regexec.c
index 459002af13..399410faa0 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1605,10 +1605,10 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char *
     char *scream_olds = NULL;
     SV* oreplsv = GvSV(PL_replgv);
     const bool do_utf8 = DO_UTF8(sv);
-    const I32 multiline = prog->reganch & PMf_MULTILINE;
+    I32 multiline;
 #ifdef DEBUGGING
-    SV * const dsv0 = PERL_DEBUG_PAD_ZERO(0);
-    SV * const dsv1 = PERL_DEBUG_PAD_ZERO(1);
+    SV* dsv0;
+    SV* dsv1;
 #endif
 
     GET_RE_DEBUG_FLAGS_DECL;
@@ -1621,6 +1621,13 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char *
 	return 0;
     }
 
+    multiline = prog->reganch & PMf_MULTILINE;
+
+#ifdef DEBUGGING
+    dsv0 = PERL_DEBUG_PAD_ZERO(0);
+    dsv1 = PERL_DEBUG_PAD_ZERO(1);
+#endif
+
 #ifdef DEBUGGING
     PL_regnarrate = DEBUG_r_TEST;
 #endif