summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/sv.c b/sv.c
index ca61adac7b..3ef19cf4ed 100644
--- a/sv.c
+++ b/sv.c
@@ -9784,8 +9784,7 @@ Perl_sv_dup(pTHX_ const SV *sstr, CLONE_PARAMS* param)
FIXME - instrument and check that assumption */
if (sv_type >= SVt_PVMG) {
HV *ourstash;
- if ((sv_type == SVt_PVMG || sv_type == SVt_PVGV) &&
- (ourstash = OURSTASH(dstr))) {
+ if ((sv_type == SVt_PVMG) && (ourstash = OURSTASH(dstr))) {
OURSTASH_set(dstr, hv_dup_inc(ourstash, param));
} else if (SvMAGIC(dstr))
SvMAGIC_set(dstr, mg_dup(SvMAGIC(dstr), param));