From 92110913508b9944d111285d9488f2f7b604919c Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Fri, 18 Jan 2002 22:11:42 +0000 Subject: Split out core of sv_magic() into sv_magicext(). sv_magic provides the extra restictions (no READONLY, only one of each type, canned set of vtables), and sv_magicext() does the actual data twiddling. Also enhances semantics of ->mg_ptr setting via name/namlen to allow either an uncopied ptr (namlen == 0), or a Newz()ed scratch area (namlen > 0 && name == NULL). sv_magicext also returns the MAGIC * it added. sv_magicext is intended mainly for PERL_MAGIC_ext (~) magic. To come sv_unmagicext() - which will remove just one magic of particular type, and additionaly match against ->mg_ptr, or the MAGIC * (need to experiment as to which is more natural). p4raw-id: //depot/perlio@14335 --- global.sym | 1 + 1 file changed, 1 insertion(+) (limited to 'global.sym') diff --git a/global.sym b/global.sym index ae33a7aee8..e64508b793 100644 --- a/global.sym +++ b/global.sym @@ -440,6 +440,7 @@ Perl_sv_isobject Perl_sv_len Perl_sv_len_utf8 Perl_sv_magic +Perl_sv_magicext Perl_sv_mortalcopy Perl_sv_newmortal Perl_sv_newref -- cgit v1.2.1