From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 28 Oct 2008 21:59:11 +0000 (+0000)
Subject: ss_dup wrapper const casting analagous to change 34626.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8082b6e76ddae55d59bd06493f5cb60a320b165;p=p5sagit%2Fp5-mst-13.2.git

ss_dup wrapper const casting analagous to change 34626.

p4raw-id: //depot/perl@34628
---

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)
 
 /*