diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/sv.h')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/sv.h | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/sv.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/sv.h index 1c7224277f..3a648e4971 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/sv.h +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/sv.h @@ -1649,10 +1649,6 @@ Like C<sv_setsv> but doesn't process magic. =for apidoc Am|void|sv_catsv_nomg|SV* dsv|SV* ssv Like C<sv_catsv> but doesn't process magic. -=for apidoc Amdb|STRLEN|sv_utf8_upgrade_nomg|SV *sv - -Like C<sv_utf8_upgrade>, but doesn't do magic on C<sv>. - =cut */ @@ -2179,6 +2175,11 @@ struct clone_params { AV *unreferenced; }; +/* SV_NOSTEAL prevents TEMP buffers being, well, stolen, and saves games + with SvTEMP_off and SvTEMP_on round a call to sv_setsv. */ +#define newSVsv(sv) newSVsv_flags((sv), SV_GMAGIC|SV_NOSTEAL) +#define newSVsv_nomg(sv) newSVsv_flags((sv), SV_NOSTEAL) + /* =for apidoc Am|SV*|newSVpvn_utf8|const char* s|STRLEN len|U32 utf8 |