X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regexec.c;h=4119dfc97a9437705d4e2751eb1dc811da4fc4a1;hb=4521c7914c9458406ab869e3d05e04c7de0567d5;hp=818d9dc700845effba3a812a18797a7e0e9bae60;hpb=fd181c75661f7c3d766abc506c3ae2f11670bbaf;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/regexec.c b/regexec.c
index 818d9dc..4119dfc 100644
--- 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) {
-	    fprintf(Perl_debug_log, "%*s%2d%-8.8s\t<%.10s>\n", regindent*2, "",
+	    PerlIO_printf(Perl_debug_log, "%*s%2d%-8.8s\t<%.10s>\n", regindent*2, "",
 		scan - regprogram, regprop(scan), locinput);
 	}
 #else
@@ -806,7 +806,7 @@ char *prog;
 
 #ifdef DEBUGGING
 		if (regnarrate)
-		    fprintf(Perl_debug_log, "%*s  %d  %lx\n", regindent*2, "",
+		    PerlIO_printf(Perl_debug_log, "%*s  %d  %lx\n", regindent*2, "",
 			n, (long)cc);
 #endif
 
@@ -986,7 +986,7 @@ char *prog;
 		sayNO;
 	    break;
 	default:
-	    fprintf(stderr, "%x %d\n",(unsigned)scan,scan[1]);
+	    PerlIO_printf(PerlIO_stderr(), "%x %d\n",(unsigned)scan,scan[1]);
 	    FAIL("regexp memory corruption");
 	}
 	scan = next;