1 files changed, 1 insertions, 2 deletions
diff --git a/inline.h b/inline.h
index 436f8eb3ac..72fe1d3cd4 100644
--- a/inline.h
+++ b/inline.h
@@ -3475,8 +3475,7 @@ Perl_mortal_getenv(const char * str)
 PERL_STATIC_INLINE bool
 Perl_sv_isbool(pTHX_ const SV *sv)
 {
-    return SvIOK(sv) && SvPOK(sv) && SvIsCOW_static(sv) &&
-        (SvPVX_const(sv) == PL_Yes || SvPVX_const(sv) == PL_No);
+    return SvBoolFlagsOK(sv) && BOOL_INTERNALS_sv_isbool(sv);
 }
 
 #ifdef USE_ITHREADS