From 2efab60d94be1ca94e3a5b26804d99d0402d0c44 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 27 Nov 2013 07:18:59 -0800 Subject: [PATCH] mg.c: Remove redundant SvOK checks --- mg.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/mg.c b/mg.c index a4a5eec..3f6eb2c 100644 --- a/mg.c +++ b/mg.c @@ -849,7 +849,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) sv_setnv(sv, (NV)Perl_rc); sv_setpv(sv, os2error(Perl_rc)); } - if (SvOK(sv) && strNE(SvPVX(sv), "")) { + if (strNE(SvPVX(sv), "")) { fixup_errno_string(sv); } # elif defined(WIN32) @@ -858,9 +858,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) sv_setnv(sv, (NV)dwErr); if (dwErr) { PerlProc_GetOSError(sv, dwErr); - if (SvOK(sv)) { - fixup_errno_string(sv); - } + fixup_errno_string(sv); } else sv_setpvs(sv, ""); -- 1.8.3.1