From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Fri, 2 Apr 2010 19:19:24 +0000 (-0400)
Subject: For evals, op_targ carry hint flags, which are pretty high when you're
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4d193d44b8e7a55a6559c6d4307a78a879f11204;p=p5sagit%2Fp5-mst-13.2.git

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.
---

diff --git a/op.c b/op.c
index 7754923..9c94cc8 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;