Change 34622 by [EMAIL PROTECTED] on 2008/10/28 20:12:16
Two casts that are MUTABLE_?V.
Affected files ...
... //depot/perl/toke.c#829 edit
Differences ...
==== //depot/perl/toke.c#829 (text) ====
Index: perl/toke.c
--- perl/toke.c#828~34585~ 2008-10-25 05:23:01.000000000 -0700
+++ perl/toke.c 2008-10-28 13:12:16.000000000 -0700
@@ -902,8 +902,8 @@
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);
End of Patch.
