From: Vincent Pit <perl@profvince.com>
Date: Mon, 26 Apr 2010 19:51:42 +0000 (+0200)
Subject: Fix possible undefined behaviour introduced by b9e00b79e4947c49d5520633f9efd2a8e39ec14f
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bbda9cad3990b2899f9b14eed43d91fea90bd738;p=p5sagit%2Fp5-mst-13.2.git

Fix possible undefined behaviour introduced by b9e00b79e4947c49d5520633f9efd2a8e39ec14f
---

diff --git a/sv.c b/sv.c
index 8179937..e7d67a5 100644
--- 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);