summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-10-28 21:59:11 +0000
committerNicholas Clark <nick@ccl4.org>2008-10-28 21:59:11 +0000
commitb8082b6e76ddae55d59bd06493f5cb60a320b165 (patch)
tree6c3d9a2ed045e30a932622c5925324cb6ae85980 /regcomp.c
parent6c1b357c76ac52676d3f7e25a341465e3178a2d4 (diff)
downloadperl-b8082b6e76ddae55d59bd06493f5cb60a320b165.tar.gz
ss_dup wrapper const casting analagous to change 34626.
p4raw-id: //depot/perl@34628
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regcomp.c b/regcomp.c
index 4283e71313..4645cb3bf7 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -9508,8 +9508,8 @@ 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((SV*)s,t))
-#define hv_dup_inc(s,t) (HV*)SvREFCNT_inc(sv_dup((SV*)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 SAVEPVN(p,n) ((p) ? savepvn(p,n) : NULL)
/*