diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-05-02 22:38:52 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-05-02 22:38:52 +0000 |
| commit | 67bc2cb00d7feb8647dda25e729ba4ceb738fb6f (patch) | |
| tree | 4630fa5e9f81d693beff4c772b2b5e8ea557ad64 /sv.c | |
| parent | 45e3480058a48be9675e10a3f8cf34c1b211df0e (diff) | |
| download | perl-67bc2cb00d7feb8647dda25e729ba4ceb738fb6f.tar.gz | |
Remove a variable left unused since change 28065.
p4raw-id: //depot/perl@28070
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -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)) |