This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Allow redirection of debug messages
[perl5.git] / regexec.c
index 6a29d7f..818d9dc 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -590,7 +590,7 @@ char *prog;
 #define sayNO goto no
 #define saySAME(x) if (x) goto yes; else goto no
        if (regnarrate) {
 #define sayNO goto no
 #define saySAME(x) if (x) goto yes; else goto no
        if (regnarrate) {
-           fprintf(stderr, "%*s%2d%-8.8s\t<%.10s>\n", regindent*2, "",
+           fprintf(Perl_debug_log, "%*s%2d%-8.8s\t<%.10s>\n", regindent*2, "",
                scan - regprogram, regprop(scan), locinput);
        }
 #else
                scan - regprogram, regprop(scan), locinput);
        }
 #else
@@ -806,7 +806,7 @@ char *prog;
 
 #ifdef DEBUGGING
                if (regnarrate)
 
 #ifdef DEBUGGING
                if (regnarrate)
-                   fprintf(stderr, "%*s  %d  %lx\n", regindent*2, "",
+                   fprintf(Perl_debug_log, "%*s  %d  %lx\n", regindent*2, "",
                        n, (long)cc);
 #endif
 
                        n, (long)cc);
 #endif