g++ wants cast

Message-Id: <20070128150444.AC62043A57@anubis.hut.fi>

p4raw-id: //depot/perl@30050

diff --git a/sv.c b/sv.c
index 79ab725..f79d52a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10673,7 +10673,7 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            break;
        case SAVEt_PARSER:
            ptr = POPPTR(ss,ix);
-           TOPPTR(nss,ix) = parser_dup(ptr, param);
+           TOPPTR(nss,ix) = parser_dup((const yy_parser*)ptr, param);
            break;
        default:
            Perl_croak(aTHX_