diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-28 20:12:16 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-28 20:12:16 +0000 |
| commit | 3cb1dbc621ea6bcc05f2289da05ca9883cc40ef1 (patch) | |
| tree | bb3ff783d8f59d41734d02671bd75ec2b25cf31f /toke.c | |
| parent | c6903450838086ba02cb3a4b04bd5f6047187b9d (diff) | |
| download | perl-3cb1dbc621ea6bcc05f2289da05ca9883cc40ef1.tar.gz | |
Two casts that are MUTABLE_?V.
p4raw-id: //depot/perl@34622
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |