This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
For evals, op_targ carry hint flags, which are pretty high when you're
authorRafael Garcia-Suarez <rgs@consttype.org>
Fri, 2 Apr 2010 19:19:24 +0000 (15:19 -0400)
committerJesse Vincent <jesse@bestpractical.com>
Fri, 2 Apr 2010 19:19:24 +0000 (15:19 -0400)
using feature or another (recent) pragma. And previously we had to care
only about entereval, but now we can compile to entertry too.

op.c

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