This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove dead code that was emitting warnings.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 8 Feb 2007 10:16:14 +0000 (10:16 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 8 Feb 2007 10:16:14 +0000 (10:16 +0000)
p4raw-id: //depot/perl@30170

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;