From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 28 Oct 2008 20:12:16 +0000 (+0000)
Subject: Two casts that are MUTABLE_?V.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3cb1dbc621ea6bcc05f2289da05ca9883cc40ef1;p=p5sagit%2Fp5-mst-13.2.git

Two casts that are MUTABLE_?V.

p4raw-id: //depot/perl@34622
---

diff --git a/toke.c b/toke.c
index aa4bfaf..7b11def 100644
--- a/toke.c
+++ b/toke.c
@@ -902,8 +902,8 @@ S_incline(pTHX_ const char *s)
 		    gv_init(gv2, PL_defstash, tmpbuf2, tmplen2, FALSE);
 		    /* adjust ${"::_<newfilename"} to store the new file name */
 		    GvSV(gv2) = newSVpvn(tmpbuf2 + 2, tmplen2 - 2);
-		    GvHV(gv2) = (HV*)SvREFCNT_inc(GvHV(*gvp));
-		    GvAV(gv2) = (AV*)SvREFCNT_inc(GvAV(*gvp));
+		    GvHV(gv2) = MUTABLE_HV(SvREFCNT_inc(GvHV(*gvp)));
+		    GvAV(gv2) = MUTABLE_AV(SvREFCNT_inc(GvAV(*gvp)));
 		}
 
 		if (tmpbuf2 != smallbuf) Safefree(tmpbuf2);