Remove dead code that was emitting warnings.

p4raw-id: //depot/perl@30170

diff --git a/regcomp.c b/regcomp.c
index c75b5f3..27063a7 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4182,20 +4182,6 @@ Perl_re_compile(pTHX_ char *exp, char *xend, PMOP *pm)
         if (has_runon)
             *p++='\n';
         *p=')';
-
-
-        if (0)
-            PerlIO_printf(Perl_debug_log,
-            "RExC_precomp: %.*s\nr->precomp: %.*s\nr->wrapped:%.*s\n",
-            r->prelen,
-            RExC_precomp,
-            r->prelen,
-            r->precomp,
-            r->wraplen,
-            r->wrapped
-        );
-
-
     }
 
     r->intflags = 0;