Minor potential bug in AV creation

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

diff --git a/perly.c b/perly.c
index 735330a..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