X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/89fc9e2a93d8f1efaca9c57135763a5342ecdd36..5bcd1ef4a02daf3152ee41becf0004a7e450d106:/sv.h diff --git a/sv.h b/sv.h index 46e53ac..360a249 100644 --- a/sv.h +++ b/sv.h @@ -685,10 +685,8 @@ Only use when you are sure SvNOK is true. See also C. Returns a pointer to the physical string in the SV. The SV must contain a string. -During autoloading, if the AUTOLOAD routine is an XSUB, C -returns the name of the subroutine for which AUTOLOAD was invoked. -Likewise, C returns the length, and C returns true -if the name is in UTF8. +This is also used to store the name of an autoloaded subroutine in an XS +AUTOLOAD routine. See L. =for apidoc Am|STRLEN|SvCUR|SV* sv Returns the length of the string which is in the SV. See C. @@ -1812,7 +1810,7 @@ Like sv_utf8_upgrade, but doesn't do magic on C #else # define SvRELEASE_IVX(sv) 0 /* This little game brought to you by the need to shut this warning up: -mg.c: In function `Perl_magic_get': +mg.c: In function 'Perl_magic_get': mg.c:1024: warning: left-hand operand of comma expression has no effect */ # define SvRELEASE_IVX_(sv) /**/ @@ -1981,6 +1979,16 @@ Returns a pointer to the character buffer. #define SvIMMORTAL(sv) ((sv)==&PL_sv_undef || (sv)==&PL_sv_yes || (sv)==&PL_sv_no || (sv)==&PL_sv_placeholder) +/* +=for apidoc Am|SV *|boolSV|bool b + +Returns a true SV if C is a true value, or a false SV if C is 0. + +See also C and C. + +=cut +*/ + #define boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no) #define isGV(sv) (SvTYPE(sv) == SVt_PVGV)