The flags manipulation in sv_setsv_flags can be more efficient.

p4raw-id: //depot/perl@26981

1 files changed, 5 insertions, 18 deletions

diff --git a/sv.c b/sv.c
index f48aa8bf82..c8ad602314 100644
--- a/sv.c
+++ b/sv.c
@@ -3427,31 +3427,18 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
 	}
     }
     else if (sflags & SVp_IOK) {
-	if (sflags & SVf_IOK)
-	    (void)SvIOK_only(dstr);
-	else {
-	    (void)SvOK_off(dstr);
-	    (void)SvIOKp_on(dstr);
-	}
+	(void)SvOK_off(dstr);
 	/* XXXX Do we want to set IsUV for IV(ROK)?  Be extra safe... */
-	if (sflags & SVf_IVisUV)
-	    SvIsUV_on(dstr);
+	SvFLAGS(dstr) |= sflags & (SVf_IOK|SVp_IOK|SVf_IVisUV);
 	SvIV_set(dstr, SvIVX(sstr));
 	if (sflags & SVp_NOK) {
-	    if (sflags & SVf_NOK)
-		(void)SvNOK_on(dstr);
-	    else
-		(void)SvNOKp_on(dstr);
+	    SvFLAGS(dstr) |= sflags & (SVf_NOK|SVp_NOK);
 	    SvNV_set(dstr, SvNVX(sstr));
 	}
     }
     else if (sflags & SVp_NOK) {
-	if (sflags & SVf_NOK)
-	    (void)SvNOK_only(dstr);
-	else {
-	    (void)SvOK_off(dstr);
-	    SvNOKp_on(dstr);
-	}
+	(void)SvOK_off(dstr);
+	SvFLAGS(dstr) |= sflags & (SVf_NOK|SVp_NOK);
 	SvNV_set(dstr, SvNVX(sstr));
     }
     else {