From 62b257df1f540f1965644207ab548776bdf67db5 Mon Sep 17 00:00:00 2001 From: Chip Salzenberg Date: Fri, 12 Aug 2011 17:53:19 -0700 Subject: some make minimal copy upgrades depend on private flags (pIOK and pNOK) --- sv.c | 6 +++--- 1 file 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); } -- cgit v1.2.1