summaryrefslogtreecommitdiff
path: root/perly.c
diff options
context:
space:
mode:
Diffstat (limited to 'perly.c')
-rw-r--r--perly.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/perly.c b/perly.c
index ac87b8e02e..07093071e6 100644
--- a/perly.c
+++ b/perly.c
@@ -456,7 +456,7 @@ Perl_yyparse (pTHX)
YYPUSHSTACK;
ps->state = yyn;
ps->val = parser->yylval;
- ps->compcv = SvREFCNT_inc(PL_compcv);
+ ps->compcv = (CV*)SvREFCNT_inc(PL_compcv);
ps->savestack_ix = PL_savestack_ix;
#ifdef DEBUGGING
ps->name = (const char *)(yytname[yytoken]);
@@ -555,7 +555,7 @@ Perl_yyparse (pTHX)
number reduced by. */
ps->val = yyval;
- ps->compcv = SvREFCNT_inc(PL_compcv);
+ ps->compcv = (CV*)SvREFCNT_inc(PL_compcv);
ps->savestack_ix = PL_savestack_ix;
#ifdef DEBUGGING
ps->name = (const char *)(yytname [yyr1[yyn]]);
@@ -670,7 +670,7 @@ Perl_yyparse (pTHX)
YYPUSHSTACK;
ps->state = yyn;
ps->val = parser->yylval;
- ps->compcv = SvREFCNT_inc(PL_compcv);
+ ps->compcv = (CV*)SvREFCNT_inc(PL_compcv);
ps->savestack_ix = PL_savestack_ix;
#ifdef DEBUGGING
ps->name ="<err>";