summaryrefslogtreecommitdiff
path: root/inline.h
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2023-03-17 14:19:08 +0100
committerYves Orton <demerphq@gmail.com>2023-03-18 00:48:16 +0800
commit716f215064b47fc7e5cd32f4f328618825957758 (patch)
tree32259313558f341489097feea804e308e4e55bbe /inline.h
parent8552f09f5cfe61a536a65f11290ef026f7aa0356 (diff)
downloadperl-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.h10
1 files changed, 1 insertions, 9 deletions
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