From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 2 May 2006 22:38:52 +0000 (+0000)
Subject: Remove a variable left unused since change 28065.
X-Git-Tag: upstream/5.16.3~17748
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=67bc2cb00d7feb8647dda25e729ba4ceb738fb6f;p=platform%2Fupstream%2Fperl.git

Remove a variable left unused since change 28065.

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

diff --git a/sv.c b/sv.c
index e0e47e4046..79b528b0e1 100644
--- a/sv.c
+++ b/sv.c
@@ -10042,7 +10042,6 @@ Perl_sv_dup(pTHX_ const SV *sstr, CLONE_PARAMS* param)
 	       missing by always going for the destination.
 	       FIXME - instrument and check that assumption  */
 	    if (sv_type >= SVt_PVMG) {
-		HV *ourstash;
 		if ((sv_type == SVt_PVMG) && SvPAD_OUR(dstr)) {
 		    OURSTASH_set(dstr, hv_dup_inc(OURSTASH(dstr), param));
 		} else if (SvMAGIC(dstr))