some make minimal copy upgrades depend on private flags (pIOK and pNOK)chip/scalartypes

1 files changed, 3 insertions, 3 deletions

diff --git a/sv.c b/sv.c
index 8eb8c0578d..74e374301b 100644
--- a/sv.c
+++ b/sv.c
@@ -4038,7 +4038,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV* sstr, const I32 flags)
 	    goto copy_iv;	/* IOK is only possibility */
 	if (!SvOK(sstr))
 	    goto undef_sstr;
-	if (SvIOK(sstr)) {
+	if (SvIOKp(sstr)) {
 	    if (dtype < SVt_PVIV)
 		sv_upgrade(dstr, SVt_PVIV);
 	}
@@ -4057,12 +4057,12 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV* sstr, const I32 flags)
 	}
 	if (!SvOK(sstr))
 	    goto undef_sstr;
-	if (SvIOK(sstr)) {
+	if (SvIOKp(sstr)) {
 	    /* lower upgrade is fine because the NV is redundant with the IV */
 	    if (dtype < SVt_PVIV)
 		sv_upgrade(dstr, SVt_PVIV);
 	}
-	else if (SvNOK(sstr)) {
+	else if (SvNOKp(sstr)) {
 	    if (dtype < SVt_PVNV)
 		sv_upgrade(dstr, SVt_PVNV);
 	}