File tree Expand file tree Collapse file tree 2 files changed +1047
-29
lines changed Expand file tree Collapse file tree 2 files changed +1047
-29
lines changed Original file line number Diff line number Diff 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
You can’t perform that action at this time.
0 commit comments