X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a0824163008c006b841cb7ca91d331692d4ba14a..ac4c12e7aee90d31d5da776601addbfd9d738a5a:/perly.c.diff

diff --git a/perly.c.diff b/perly.c.diff
index e082aec..55f0a11 100644
--- a/perly.c.diff
+++ b/perly.c.diff
@@ -194,7 +194,7 @@ Index: perly.c
 --- 1372,1376 ----
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
-!             fprintf(stderr, "yydebug: state %d, reading %d (%s)\n", yystate,
+!             PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
                       yychar, yys);
           }
 ***************
@@ -212,7 +212,7 @@ Index: perly.c
 --- 1382,1405 ----
   #if YYDEBUG
           if (yydebug)
-!             fprintf(stderr, "yydebug: state %d, shifting to state %d\n",
+!             PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
                       yystate, yytable[yyn]);
   #endif
           if (yyssp >= yyss + yystacksize - 1)
@@ -249,7 +249,7 @@ Index: perly.c
 --- 1437,1461 ----
   #if YYDEBUG
                   if (yydebug)
-!                     fprintf(stderr,
+!                     PerlIO_printf(Perl_debug_log,
 ! 		     "yydebug: state %d, error recovery shifting to state %d\n",
 ! 		     *yyssp, yytable[yyn]);
   #endif
@@ -283,7 +283,7 @@ Index: perly.c
 --- 1467,1473 ----
   #if YYDEBUG
                   if (yydebug)
-!                     fprintf(stderr,
+!                     PerlIO_printf(Perl_debug_log,
 ! 			"yydebug: error recovery discarding state %d\n",
 ! 			*yyssp);
   #endif
@@ -299,7 +299,7 @@ Index: perly.c
 --- 1486,1492 ----
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
-!             fprintf(stderr,
+!             PerlIO_printf(Perl_debug_log,
 ! 		"yydebug: state %d, error recovery discards token %d (%s)\n",
 ! 		yystate, yychar, yys);
           }
@@ -314,7 +314,7 @@ Index: perly.c
 --- 1497,1501 ----
   #if YYDEBUG
       if (yydebug)
-!         fprintf(stderr, "yydebug: state %d, reducing by rule %d (%s)\n",
+!         PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
                   yystate, yyn, yyrule[yyn]);
   #endif
 ***************
@@ -328,7 +328,7 @@ Index: perly.c
 --- 2292,2298 ----
   #if YYDEBUG
           if (yydebug)
-!             fprintf(stderr,
+!             PerlIO_printf(Perl_debug_log,
 ! 		"yydebug: after reduction, shifting from state 0 to state %d\n",
 ! 		YYFINAL);
   #endif
@@ -343,7 +343,7 @@ Index: perly.c
 --- 2308,2312 ----
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
-!                 fprintf(stderr, "yydebug: state %d, reading %d (%s)\n",
+!                 PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
                           YYFINAL, yychar, yys);
               }
 ***************
@@ -361,7 +361,7 @@ Index: perly.c
 --- 2323,2347 ----
   #if YYDEBUG
       if (yydebug)
-!         fprintf(stderr,
+!         PerlIO_printf(Perl_debug_log,
 ! 	    "yydebug: after reduction, shifting from state %d to state %d\n",
 ! 	    *yyssp, yystate);
   #endif