More fixups for thrperl integration.

[p5sagit/p5-mst-13.2.git] / toke.c

diff --git a/toke.c b/toke.c
index 7fddc3c..a007fa4 100644 (file)
--- 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.