From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 8 Feb 2007 10:16:14 +0000 (+0000)
Subject: Remove dead code that was emitting warnings.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aad86e2b1854e6cf9b1f3c702c4d5801c1a9f58a;p=p5sagit%2Fp5-mst-13.2.git

Remove dead code that was emitting warnings.

p4raw-id: //depot/perl@30170
---

diff --git a/regcomp.c b/regcomp.c
index c75b5f3..27063a7 100644
--- 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;