diff options
| author | Gerard Goossen <gerard@ggoossen.net> | 2011-08-09 20:35:06 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-11 09:07:14 -0700 |
| commit | eb796c7f1a47acbd996034731639c1bb76e31a19 (patch) | |
| tree | ce561de43080ad2dc8c9a59d417dbd873faf1b80 /proto.h | |
| parent | 86a64801a038eae8c8c1c6f0ba6a8b40aeb8fa8d (diff) | |
| download | perl-eb796c7f1a47acbd996034731639c1bb76e31a19.tar.gz | |
Move bareword checking from the peephole optimizer to finalize_optree. Fixes [perl #95998]
The bareword checking is moved from the peephole optimizer to finalize_optree.
newRANGE needs additional bareword checking because the constants may
be optimized away by 'gen_constant_list'.
The OPpCONST_STRICT flag is removed after giving an error about a
bareword to prevent giving multiple errors about the same bareword.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -5552,7 +5552,7 @@ STATIC OP* S_new_logop(pTHX_ I32 type, I32 flags, OP **firstp, OP **otherp) #define PERL_ARGS_ASSERT_NEW_LOGOP \ assert(firstp); assert(otherp) -STATIC void S_no_bareword_allowed(pTHX_ const OP *o) +STATIC void S_no_bareword_allowed(pTHX_ OP *o) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_NO_BAREWORD_ALLOWED \ assert(o) |