diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2014-10-31 03:23:17 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-31 12:37:08 -0700 |
| commit | eacbb37937698a035d5ed63fcbdf15dd4eab56cf (patch) | |
| tree | 99f7dc0cbedf55df1391d054c456f5d2b52a3ae9 /pp_ctl.c | |
| parent | 699ed31ec604580b23b25fc7a7fb44b59c92cbc6 (diff) | |
| download | perl-eacbb37937698a035d5ed63fcbdf15dd4eab56cf.tar.gz | |
free up CvPADLIST slot for XSUBs for future use
CvRESERVED is a placeholder, it will be replaced with a sentinal value
from future revised BOOTCHECK API.
CvPADLIST_set was helpful during development of this patch, so keep it
around for now.
PoisonPADLIST's magic value is from PERL_POISON 0xEF pattern. Some
PoisonPADLIST locations will get code from future BOOTCHECK API.
Make padlist_dup a NN function to avoid overhead of calling it for XSUBs
during closing.
Perl_cv_undef_flags's else if (CvISXSUB(&cvbody)) is to avoid whitespace
changes.
Filed as perl [#123059].
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3383,7 +3383,7 @@ S_doeval(pTHX_ int gimme, CV* outside, U32 seq, HV *hh) /* set up a scratch pad */ - CvPADLIST(evalcv) = pad_new(padnew_SAVE); + CvPADLIST_set(evalcv, pad_new(padnew_SAVE)); PL_op = NULL; /* avoid PL_op and PL_curpad referring to different CVs */ |