fix build under PERL_GLOBAL_STRUCT_PRIVATE

sprinkle a few random 'dVAR's at the top of some fns.

1 files changed, 1 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 862dbb453e..24df24d300 100644
--- a/toke.c
+++ b/toke.c
@@ -8364,6 +8364,7 @@ yyl_key_core(pTHX_ char *s, STRLEN len, struct code c)
 static int
 yyl_keylookup(pTHX_ char *s, GV *gv)
 {
+    dVAR;
     STRLEN len;
     bool anydelim;
     I32 key;