This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
g++ wants cast
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 28 Jan 2007 17:04:44 +0000 (19:04 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 28 Jan 2007 17:26:02 +0000 (17:26 +0000)
Message-Id: <20070128150444.AC62043A57@anubis.hut.fi>

p4raw-id: //depot/perl@30050

sv.c

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_