Pod typos, pod2man bugs, and miscellaneous installation comments

[p5sagit/p5-mst-13.2.git] / perly.c

diff --git a/perly.c b/perly.c
index 2735893..8e94e1a 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -1335,15 +1335,15 @@ yydestruct(ptr)
 void* ptr;
 {
     struct ysv* ysave = (struct ysv*)ptr;
-    if (ysave->yyss) safefree((char *)ysave->yyss);
-    if (ysave->yyvs) safefree((char *)ysave->yyvs);
+    if (ysave->yyss) Safefree(ysave->yyss);
+    if (ysave->yyvs) Safefree(ysave->yyvs);
     yydebug    = ysave->oldyydebug;
     yynerrs    = ysave->oldyynerrs;
     yyerrflag  = ysave->oldyyerrflag;
     yychar     = ysave->oldyychar;
     yyval      = ysave->oldyyval;
     yylval     = ysave->oldyylval;
-    safefree((char *)ysave);
+    Safefree(ysave);
 }
 
 int
@@ -1406,7 +1406,7 @@ yyloop:
             yys = 0;
             if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
             if (!yys) yys = "illegal-symbol";
-            fprintf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
+            PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
                     yychar, yys);
         }
 #endif
@@ -1416,7 +1416,7 @@ yyloop:
     {
 #if YYDEBUG
         if (yydebug)
-            fprintf(Perl_debug_log, "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)
@@ -1471,7 +1471,7 @@ yyinrecovery:
             {
 #if YYDEBUG
                 if (yydebug)
-                    fprintf(Perl_debug_log,
+                    PerlIO_printf(Perl_debug_log,
                     "yydebug: state %d, error recovery shifting to state %d\n",
                     *yyssp, yytable[yyn]);
 #endif
@@ -1501,7 +1501,7 @@ yyinrecovery:
             {
 #if YYDEBUG
                 if (yydebug)
-                    fprintf(Perl_debug_log,
+                    PerlIO_printf(Perl_debug_log,
                        "yydebug: error recovery discarding state %d\n",
                        *yyssp);
 #endif
@@ -1520,7 +1520,7 @@ yyinrecovery:
             yys = 0;
             if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
             if (!yys) yys = "illegal-symbol";
-            fprintf(Perl_debug_log,
+            PerlIO_printf(Perl_debug_log,
                "yydebug: state %d, error recovery discards token %d (%s)\n",
                yystate, yychar, yys);
         }
@@ -1531,7 +1531,7 @@ yyinrecovery:
 yyreduce:
 #if YYDEBUG
     if (yydebug)
-        fprintf(Perl_debug_log, "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
     yym = yylen[yyn];
@@ -2250,7 +2250,7 @@ break;
     {
 #if YYDEBUG
         if (yydebug)
-            fprintf(Perl_debug_log,
+            PerlIO_printf(Perl_debug_log,
                "yydebug: after reduction, shifting from state 0 to state %d\n",
                YYFINAL);
 #endif
@@ -2266,7 +2266,7 @@ break;
                 yys = 0;
                 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                 if (!yys) yys = "illegal-symbol";
-                fprintf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
+                PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
                         YYFINAL, yychar, yys);
             }
 #endif
@@ -2281,7 +2281,7 @@ break;
         yystate = yydgoto[yym];
 #if YYDEBUG
     if (yydebug)
-        fprintf(Perl_debug_log,
+        PerlIO_printf(Perl_debug_log,
            "yydebug: after reduction, shifting from state %d to state %d\n",
            *yyssp, yystate);
 #endif