From b8082b6e76ddae55d59bd06493f5cb60a320b165 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 28 Oct 2008 21:59:11 +0000 Subject: [PATCH] ss_dup wrapper const casting analagous to change 34626. p4raw-id: //depot/perl@34628 --- regcomp.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/regcomp.c b/regcomp.c index 4283e71..4645cb3 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) /* -- 2.7.4