In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/db21619caaefee434f82005da4dedfa9f09b29e5?hp=a304a107e9a9f49c5f7a0af40fd022f98bc96028>
- Log ----------------------------------------------------------------- commit db21619caaefee434f82005da4dedfa9f09b29e5 Author: David Mitchell <[email protected]> Date: Fri Jan 11 15:04:47 2013 +0000 expand comment in Perl_pad_tidy make it clear that /$var/ is only eval-able in the presence of 'use re eval'; then generally tidy and reformat the comment. ----------------------------------------------------------------------- Summary of changes: pad.c | 22 +++++++++++++++------- 1 files changed, 15 insertions(+), 7 deletions(-) diff --git a/pad.c b/pad.c index 549d3f5..70519e4 100644 --- a/pad.c +++ b/pad.c @@ -1714,13 +1714,21 @@ Perl_pad_tidy(pTHX_ padtidy_type type) ASSERT_CURPAD_ACTIVE("pad_tidy"); - /* If this CV has had any 'eval-capable' ops planted in it - * (ie it contains eval '...', //ee, /$var/ or /(?{..})/), Then any - * anon prototypes in the chain of CVs should be marked as cloneable, - * so that for example the eval's CV in C<< sub { eval '$x' } >> gets - * the right CvOUTSIDE. - * If running with -d, *any* sub may potentially have an eval - * executed within it. + /* If this CV has had any 'eval-capable' ops planted in it: + * i.e. it contains any of: + * + * * eval '...', + * * //ee, + * * use re 'eval'; /$var/ + * * /(?{..})/), + * + * Then any anon prototypes in the chain of CVs should be marked as + * cloneable, so that for example the eval's CV in + * + * sub { eval '$x' } + * + * gets the right CvOUTSIDE. If running with -d, *any* sub may + * potentially have an eval executed within it. */ if (PL_cv_has_eval || PL_perldb) { -- Perl5 Master Repository
