This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove a variable left unused since change 28065.
authorNicholas Clark <nick@ccl4.org>
Tue, 2 May 2006 22:38:52 +0000 (22:38 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 2 May 2006 22:38:52 +0000 (22:38 +0000)
p4raw-id: //depot/perl@28070

sv.c

diff --git a/sv.c b/sv.c
index e0e47e4..79b528b 100644 (file)
--- 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))