diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-18 22:11:42 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-18 22:11:42 +0000 |
| commit | 92110913508b9944d111285d9488f2f7b604919c (patch) | |
| tree | 5328e9981561128fdf2360147fbe0315dca970e1 /global.sym | |
| parent | a398d936ece03108233d87a6ab0b552b6272270a (diff) | |
| download | perl-92110913508b9944d111285d9488f2f7b604919c.tar.gz | |
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
Diffstat (limited to 'global.sym')
| -rw-r--r-- | global.sym | 1 |
1 files changed, 1 insertions, 0 deletions
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 |