summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgs@consttype.org>2010-04-02 15:19:24 -0400
committerJesse Vincent <jesse@bestpractical.com>2010-04-02 15:19:24 -0400
commit4d193d44b8e7a55a6559c6d4307a78a879f11204 (patch)
treeb1d742401b104b60ad9cf6b11b6574901331beed
parentae533554a9c124f574bc4e6f57c895308d938681 (diff)
downloadperl-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.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/op.c b/op.c
index 775492319e..9c94cc8c27 100644
--- a/op.c
+++ b/op.c
@@ -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;