diff options
author | Yves Orton <demerphq@gmail.com> | 2023-03-17 14:19:08 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-03-18 00:48:16 +0800 |
commit | 716f215064b47fc7e5cd32f4f328618825957758 (patch) | |
tree | 32259313558f341489097feea804e308e4e55bbe /inline.h | |
parent | 8552f09f5cfe61a536a65f11290ef026f7aa0356 (diff) | |
download | perl-716f215064b47fc7e5cd32f4f328618825957758.tar.gz |
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.
Diffstat (limited to 'inline.h')
-rw-r--r-- | inline.h | 10 |
1 files changed, 1 insertions, 9 deletions
@@ -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 |