diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-06-22 21:42:54 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-06-22 21:42:54 +0000 |
| commit | 0cbee0a449cc4e11ef8db851c20b026c8f9ff45e (patch) | |
| tree | b8f64d28537d653564df5df9d38f0c44680e8a51 /embed.h | |
| parent | 666e7e7967a0bc59b1f44ec2961661c439aad50c (diff) | |
| download | perl-0cbee0a449cc4e11ef8db851c20b026c8f9ff45e.tar.gz | |
handle magic in local correctly
the local SV now gets a copy of any container magic, and no value
magic; in the past the whole magic chain was either shared or
moved
p4raw-id: //depot/perl@24942
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -460,6 +460,9 @@ #define sortsv Perl_sortsv #define mg_clear Perl_mg_clear #define mg_copy Perl_mg_copy +#ifdef PERL_CORE +#define mg_localize Perl_mg_localize +#endif #define mg_find Perl_mg_find #define mg_free Perl_mg_free #define mg_get Perl_mg_get @@ -2434,6 +2437,9 @@ #define sortsv(a,b,c) Perl_sortsv(aTHX_ a,b,c) #define mg_clear(a) Perl_mg_clear(aTHX_ a) #define mg_copy(a,b,c,d) Perl_mg_copy(aTHX_ a,b,c,d) +#ifdef PERL_CORE +#define mg_localize(a,b) Perl_mg_localize(aTHX_ a,b) +#endif #define mg_find(a,b) Perl_mg_find(aTHX_ a,b) #define mg_free(a) Perl_mg_free(aTHX_ a) #define mg_get(a) Perl_mg_get(aTHX_ a) |