1 files changed, 1 insertions, 0 deletions
diff --git a/regcomp.c b/regcomp.c
index c6fb7feeb7..2d81da18d4 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3224,6 +3224,7 @@ void
 Perl_pregfree(pTHX_ struct regexp *r)
 {
     dTHR;
+    DEBUG_r(if (!PL_colorset) reginitcolors());
     DEBUG_r(PerlIO_printf(Perl_debug_log,
 		      "%sFreeing REx:%s `%s%.60s%s%s'\n",
 		      PL_colors[4],PL_colors[5],PL_colors[0],