diff options
| author | Vincent Pit <perl@profvince.com> | 2009-07-25 00:15:07 +0200 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-07-25 23:26:06 +0200 |
| commit | 91d1c79f6c648258e3465cf0cdbe8df3ab262de1 (patch) | |
| tree | 80fc2bb47eae65d7017d956e3759daf004420d29 /scope.c | |
| parent | 2788925507d099c7b1e9382ad2ddc4f3d692de28 (diff) | |
| download | perl-91d1c79f6c648258e3465cf0cdbe8df3ab262de1.tar.gz | |
Introduce save_aelem_flags()
It's the symmetric of save_helem_flags(). save_aelem() is now a macro wrapping around save_aelem_flags().
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -572,12 +572,12 @@ S_save_pushptri32ptr(pTHX_ void *const ptr1, const I32 i, void *const ptr2, } void -Perl_save_aelem(pTHX_ AV *av, I32 idx, SV **sptr) +Perl_save_aelem_flags(pTHX_ AV *av, I32 idx, SV **sptr, const U32 flags) { dVAR; SV *sv; - PERL_ARGS_ASSERT_SAVE_AELEM; + PERL_ARGS_ASSERT_SAVE_AELEM_FLAGS; SvGETMAGIC(*sptr); save_pushptri32ptr(SvREFCNT_inc_simple(av), idx, SvREFCNT_inc(*sptr), @@ -585,7 +585,7 @@ Perl_save_aelem(pTHX_ AV *av, I32 idx, SV **sptr) /* if it gets reified later, the restore will have the wrong refcnt */ if (!AvREAL(av) && AvREIFY(av)) SvREFCNT_inc_void(*sptr); - save_scalar_at(sptr, SAVEf_SETMAGIC); /* XXX - FIXME - see #60360 */ + save_scalar_at(sptr, flags); /* XXX - FIXME - see #60360 */ sv = *sptr; /* If we're localizing a tied array element, this new sv * won't actually be stored in the array - so it won't get |