More fixups for thrperl integration.

p4raw-id: //depot/perl@27

1 files changed, 1 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 7fddc3c7ea..a007fa47d0 100644
--- a/toke.c
+++ b/toke.c
@@ -536,6 +536,7 @@ int kind;
 	nextval[nexttoke].opval = o;
 	force_next(WORD);
 	if (kind) {
+	    dTHR;		/* just for in_eval */
 	    o->op_private = OPpCONST_ENTERED;
 	    /* XXX see note in pp_entereval() for why we forgo typo
 	       warnings if the symbol must be introduced in an eval.