X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/10507e11e7486d0edcd9599c75a5cb65d5db141a..93136d17f9881a8e1aebaec99f2febb8e56aefa3:/scope.c?ds=sidebyside

diff --git a/scope.c b/scope.c
index 80846b6..fb93db0 100644
--- a/scope.c
+++ b/scope.c
@@ -187,7 +187,7 @@ S_save_scalar_at(pTHX_ SV **sptr, const U32 flags)
 	       (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT;
 	}
 	if (!(flags & SAVEf_KEEPOLDELEM))
-	    mg_localize(osv, sv, (flags & SAVEf_SETMAGIC) != 0);
+	    mg_localize(osv, sv, cBOOL(flags & SAVEf_SETMAGIC));
     }
 
     return sv;