From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 6 Feb 2006 18:45:35 +0000 (+0000)
Subject: Remove a duplicate flag copy line from Perl_sv_setsv_flags.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d24bbf23c1c9b3b21c4a4fbce2134e3a9987348;p=p5sagit%2Fp5-mst-13.2.git

Remove a duplicate flag copy line from Perl_sv_setsv_flags.

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

diff --git a/sv.c b/sv.c
index 2bebce1..e672f59 100644
--- 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));
 	}
     }