diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-07-15 23:51:15 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-07-16 00:26:02 -0700 |
| commit | 13733cde3fe669aafa0a2a598b5b45d024fb3b86 (patch) | |
| tree | 34c6d12801583e3d88fe5372be078965373b8f0e /embed.h | |
| parent | d4431b89a00a340cc459be515feeb6c274012420 (diff) | |
| download | perl-13733cde3fe669aafa0a2a598b5b45d024fb3b86.tar.gz | |
[perl #27010] Make tie work through defelems
When elements of @_ refer to nonexistent hash or array elements, then
the magic scalar in $_[0] delegates all set/get actions to the element
in represents, vivifying it if needed.
tie/tied/untie, however, were not delegating to the element, but were
tying the the magical ‘deferred element’ scalar itself.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1073,6 +1073,7 @@ #define cvgv_set(a,b) Perl_cvgv_set(aTHX_ a,b) #define cvstash_set(a,b) Perl_cvstash_set(aTHX_ a,b) #define deb_stack_all() Perl_deb_stack_all(aTHX) +#define defelem_target(a,b) Perl_defelem_target(aTHX_ a,b) #define delete_eval_scope() Perl_delete_eval_scope(aTHX) #define die_unwind(a) Perl_die_unwind(aTHX_ a) #define do_aexec5(a,b,c,d,e) Perl_do_aexec5(aTHX_ a,b,c,d,e) |