Remove a duplicate flag copy line from Perl_sv_setsv_flags.
authorNicholas Clark <nick@ccl4.org>
Mon, 6 Feb 2006 18:45:35 +0000 (18:45 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 6 Feb 2006 18:45:35 +0000 (18:45 +0000)
p4raw-id: //depot/perl@27107

sv.c

diff --git a/sv.c b/sv.c
index 2bebce1..e672f59 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -3513,7 +3513,6 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
            SvIV_set(dstr, SvIVX(sstr));
        }
        if (sflags & SVp_NOK) {
-           SvFLAGS(dstr) |= sflags & (SVf_NOK|SVp_NOK);
            SvNV_set(dstr, SvNVX(sstr));
        }
     }