This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Two casts that are MUTABLE_?V.
authorNicholas Clark <nick@ccl4.org>
Tue, 28 Oct 2008 20:12:16 +0000 (20:12 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 28 Oct 2008 20:12:16 +0000 (20:12 +0000)
p4raw-id: //depot/perl@34622

toke.c

diff --git a/toke.c b/toke.c
index aa4bfaf..7b11def 100644 (file)
--- 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);