Add SvIsBOOL() macro to test for SVs being boolean-intent

These are identified as being static shared COW strings whose string
buffer points directly at PL_Yes / PL_No

Define sv_setbool() and sv_setbool_mg() macros

Use sv_setbool() where appropriate

Have sv_dump() annotate when an SV's PV buffer is one of the PL_(Yes|No) special booleans

1 files changed, 7 insertions, 0 deletions

diff --git a/inline.h b/inline.h
index 5d4b9ca096..e876dc2143 100644
--- a/inline.h
+++ b/inline.h
@@ -3407,6 +3407,13 @@ Perl_mortal_getenv(const char * str)
     return ret;
 }
 
+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);
+}
+
 /*
  * ex: set ts=8 sts=4 sw=4 et:
  */