Fix possible undefined behaviour introduced by b9e00b79e4947c49d5520633f9efd2a8e39ec14f

diff --git a/sv.c b/sv.c
index 8179937..e7d67a5 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11586,7 +11586,8 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            gp = (GP*)POPPTR(ss,ix);
            TOPPTR(nss,ix) = gp = gp_dup(gp, param);
            (void)GpREFCNT_inc(gp);
-           TOPINT(nss,ix) = POPINT(ss,ix);
+           i = POPINT(ss,ix);
+           TOPINT(nss,ix) = i;
            break;
        case SAVEt_FREEOP:
            ptr = POPPTR(ss,ix);