Skip to content
This repository was archived by the owner on Dec 11, 2024. It is now read-only.

Commit 588b03d

Browse files
committed
Remove bool logic now native to B in 5.40
1 parent 955005e commit 588b03d

File tree

2 files changed

+1047
-29
lines changed

2 files changed

+1047
-29
lines changed

C.xs

-29
Original file line numberDiff line numberDiff line change
@@ -744,35 +744,6 @@ SvHAS_ANY(sv)
744744
OUTPUT:
745745
RETVAL
746746

747-
#/*
748-
#* SvIsBool, SvIsBoolYes, SvIsBoolNo submitted to 5.36
749-
#* - view https://github.com/Perl/perl5/pull/19600
750-
#*/
751-
752-
bool
753-
SvIsBool(sv)
754-
B::SV sv
755-
CODE:
756-
RETVAL = SvIsBOOL(sv) ? TRUE : FALSE;
757-
OUTPUT:
758-
RETVAL
759-
760-
bool
761-
SvIsBoolYes(sv)
762-
B::SV sv
763-
CODE:
764-
RETVAL = SvIsBOOL(sv) && SvPVX_const(sv) == PL_Yes ? TRUE : FALSE;
765-
OUTPUT:
766-
RETVAL
767-
768-
bool
769-
SvIsBoolNo(sv)
770-
B::SV sv
771-
CODE:
772-
RETVAL = SvIsBOOL(sv) && SvPVX_const(sv) == PL_No ? TRUE : FALSE;
773-
OUTPUT:
774-
RETVAL
775-
776747
#/*
777748
#* Perl_sv_get_backrefs returns the point to the backrefs AV*
778749
#* - for HV (with OOK) it's stored in the AUX.xhv_backreferences

0 commit comments

Comments
 (0)