diff options
author | David Mitchell <davem@iabyn.com> | 2013-01-11 15:04:47 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2013-01-11 15:06:40 +0000 |
commit | db21619caaefee434f82005da4dedfa9f09b29e5 (patch) | |
tree | be406e173e36c2d00aeba9c7f3b320f8d345a2a0 /pad.c | |
parent | a304a107e9a9f49c5f7a0af40fd022f98bc96028 (diff) | |
download | perl-db21619caaefee434f82005da4dedfa9f09b29e5.tar.gz |
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.
Diffstat (limited to 'pad.c')
-rw-r--r-- | pad.c | 22 |
1 files changed, 15 insertions, 7 deletions
@@ -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) { |