From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 28 Jan 2007 17:04:44 +0000 (+0200)
Subject: g++ wants cast
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=456084a83a83d668c3227c68dea62e5133c8a74e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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_