diff options
author | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-04-02 15:19:24 -0400 |
---|---|---|
committer | Jesse Vincent <jesse@bestpractical.com> | 2010-04-02 15:19:24 -0400 |
commit | 4d193d44b8e7a55a6559c6d4307a78a879f11204 (patch) | |
tree | b1d742401b104b60ad9cf6b11b6574901331beed | |
parent | ae533554a9c124f574bc4e6f57c895308d938681 (diff) | |
download | perl-4d193d44b8e7a55a6559c6d4307a78a879f11204.tar.gz |
For evals, op_targ carry hint flags, which are pretty high when you're
using feature or another (recent) pragma. And previously we had to care
only about entereval, but now we can compile to entertry too.
-rw-r--r-- | op.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -562,6 +562,7 @@ Perl_op_clear(pTHX_ OP *o) o->op_targ = 0; goto retry; } + case OP_ENTERTRY: case OP_ENTEREVAL: /* Was holding hints. */ o->op_targ = 0; break; |