From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 22 Oct 2006 22:12:57 +0000 (+0000)
Subject: Fix a bug introduced by change 29079
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ccabee87bb0dbb12a9d126fc831a9de140b5cd3;p=p5sagit%2Fp5-mst-13.2.git

Fix a bug introduced by change 29079

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

diff --git a/sv.c b/sv.c
index 6e97bfa..0f33280 100644
--- 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 */