1 files changed, 8 insertions, 0 deletions
diff --git a/regcomp.c b/regcomp.c
index a7f4bb6600..f680717655 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5364,6 +5364,10 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
         int n = 0;
         STRLEN orig_patlen = 0;
 
+        DEBUG_PARSE_r(PerlIO_printf(Perl_debug_log,
+            "Assembling pattern from %d elements%s\n", pat_count,
+                orig_rx_flags & RXf_SPLIT ? " for split" : ""));
+
 	/* apply magic and RE overloading to each arg */
 	for (svp = new_patternp; svp < new_patternp + pat_count; svp++) {
 	    SV *rx = *svp;
@@ -5526,6 +5530,10 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
 		    *is_bare_re = TRUE;
 		SvREFCNT_inc(re);
 		Safefree(pRExC_state->code_blocks);
+                DEBUG_PARSE_r(PerlIO_printf(Perl_debug_log,
+                    "Precompiled pattern%s\n",
+                        orig_rx_flags & RXf_SPLIT ? " for split" : ""));
+
 		return (REGEXP*)re;
 	    }
 	}