diff options
author | David Mitchell <davem@iabyn.com> | 2009-03-30 00:48:13 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-03-30 00:48:13 +0100 |
commit | 136f96283a398f49aa36b7d47086bf37fd04c4b4 (patch) | |
tree | fd9bd1a39aec6520a3aa6f99b526318cd91d3ef7 /sv.c | |
parent | 53519b6f1d29ac9686d0ec5edf6ad18224ba36a0 (diff) | |
download | perl-136f96283a398f49aa36b7d47086bf37fd04c4b4.tar.gz |
fix some 5.10.x-specific const warnings after the big MUTABLE_* merge
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -12468,12 +12468,12 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match) /* attempt to find a match within the aggregate */ if (hash) { - keysv = find_hash_subscript((const HV*)sv, uninit_sv); + keysv = find_hash_subscript((HV*)sv, uninit_sv); if (keysv) subscript_type = FUV_SUBSCRIPT_HASH; } else { - index = find_array_subscript((const AV *)sv, uninit_sv); + index = find_array_subscript((AV *)sv, uninit_sv); if (index >= 0) subscript_type = FUV_SUBSCRIPT_ARRAY; } @@ -12590,14 +12590,14 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match) /* index is an expression; * attempt to find a match within the aggregate */ if (obase->op_type == OP_HELEM) { - SV * const keysv = find_hash_subscript((const HV*)sv, uninit_sv); + SV * const keysv = find_hash_subscript((HV*)sv, uninit_sv); if (keysv) return varname(gv, '%', o->op_targ, keysv, 0, FUV_SUBSCRIPT_HASH); } else { const I32 index - = find_array_subscript((const AV *)sv, uninit_sv); + = find_array_subscript((AV *)sv, uninit_sv); if (index >= 0) return varname(gv, '@', o->op_targ, NULL, index, FUV_SUBSCRIPT_ARRAY); |