diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-28 22:14:26 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-28 22:14:26 +0000 |
| commit | 85fbaab29c398adbb5b4445d3ed41e0a96364ce4 (patch) | |
| tree | 15a994b3781bdecc7e89f92575577ad52894cc2a /pp_sys.c | |
| parent | b8082b6e76ddae55d59bd06493f5cb60a320b165 (diff) | |
| download | perl-85fbaab29c398adbb5b4445d3ed41e0a96364ce4.tar.gz | |
Every remaining (HV *) cast in *.c
p4raw-id: //depot/perl@34629
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -800,7 +800,7 @@ PP(pp_tie) switch(SvTYPE(varsv)) { case SVt_PVHV: methname = "TIEHASH"; - HvEITER_set((HV *)varsv, 0); + HvEITER_set(MUTABLE_HV(varsv), 0); break; case SVt_PVAV: methname = "TIEARRAY"; @@ -944,7 +944,7 @@ PP(pp_dbmopen) HV* stash; GV *gv; - HV * const hv = (HV*)POPs; + HV * const hv = MUTABLE_HV(POPs); SV * const sv = newSVpvs_flags("AnyDBM_File", SVs_TEMP); stash = gv_stashsv(sv, 0); if (!stash || !(gv = gv_fetchmethod(stash, "TIEHASH"))) { |