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 /regcomp.c | |
| parent | b8082b6e76ddae55d59bd06493f5cb60a320b165 (diff) | |
| download | perl-85fbaab29c398adbb5b4445d3ed41e0a96364ce4.tar.gz | |
Every remaining (HV *) cast in *.c
p4raw-id: //depot/perl@34629
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4839,7 +4839,7 @@ reStudy: if (RExC_seen & REG_SEEN_CUTGROUP) r->intflags |= PREGf_CUTGROUP_SEEN; if (RExC_paren_names) - RXp_PAREN_NAMES(r) = (HV*)SvREFCNT_inc(RExC_paren_names); + RXp_PAREN_NAMES(r) = MUTABLE_HV(SvREFCNT_inc(RExC_paren_names)); else RXp_PAREN_NAMES(r) = NULL; @@ -9509,7 +9509,7 @@ Perl_regfree_internal(pTHX_ REGEXP * const rx) #define sv_dup_inc(s,t) SvREFCNT_inc(sv_dup(s,t)) #define av_dup_inc(s,t) (AV*)SvREFCNT_inc(sv_dup((const SV *)s,t)) -#define hv_dup_inc(s,t) (HV*)SvREFCNT_inc(sv_dup((const SV *)s,t)) +#define hv_dup_inc(s,t) MUTABLE_HV(SvREFCNT_inc(sv_dup((const SV *)s,t))) #define SAVEPVN(p,n) ((p) ? savepvn(p,n) : NULL) /* |