Fix a bug introduced by change 29079

p4raw-id: //depot/perl@29084

diff --git a/sv.c b/sv.c
index 6e97bfa..0f33280 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10455,7 +10455,7 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
        case SAVEt_COP_ARYBASE:                 /* call CopARYBASE_set */
            ptr = POPPTR(ss,ix);
            TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
-           POPINT(ss,ix);
+           i = POPINT(ss,ix);
            TOPINT(nss,ix) = i;
            break;
        case SAVEt_IV:                          /* IV reference */