summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/sv.h
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/sv.h')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/sv.h9
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