From 716f215064b47fc7e5cd32f4f328618825957758 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Fri, 17 Mar 2023 14:19:08 +0100 Subject: Revert "fixup, use old logic until 5.37 - TO BE SQUASHED" This reverts commit 57e785fdb86b4eb41afd139372aab7841223385f. This uses the new logic instead of the workaround. Thanks to Ilmari for the reminder. --- inline.h | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'inline.h') diff --git a/inline.h b/inline.h index 9542e3b9d6..ba6b44d836 100644 --- a/inline.h +++ b/inline.h @@ -3487,15 +3487,7 @@ Perl_mortal_getenv(const char * str) PERL_STATIC_INLINE bool Perl_sv_isbool(pTHX_ const SV *sv) { - /* change to the following in 5.37, logically the same but - * more efficient and more future proof */ -#if 0 - return (SvBoolFlagsOK(sv) && BOOL_INTERNALS_sv_isbool(sv)); -#else - return SvIOK(sv) && SvPOK(sv) && SvIsCOW_static(sv) && - (SvPVX_const(sv) == PL_Yes || SvPVX_const(sv) == PL_No); -#endif - + return SvBoolFlagsOK(sv) && BOOL_INTERNALS_sv_isbool(sv); } #ifdef USE_ITHREADS -- cgit v1.2.1