First argument to he_dup is actually a const HE *

p4raw-id: //depot/perl@25497

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 60a4645458..4ebdc10708 100644
--- a/sv.c
+++ b/sv.c
@@ -10625,7 +10625,7 @@ Perl_sv_dup(pTHX_ SV *sstr, CLONE_PARAMS* param)
 			    char);
 			HvARRAY(dstr) = (HE**)darray;
 			while (i <= sxhv->xhv_max) {
-			    HE *source = HvARRAY(sstr)[i];
+			    const HE *source = HvARRAY(sstr)[i];
 			    HvARRAY(dstr)[i] = source
 				? he_dup(source, sharekeys, param) : 0;
 			    ++i;