fix op.c under -DPERL_GLOBAL_STRUCT

diff --git a/op.c b/op.c
index 6d6b1a8..50346bf 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2342,6 +2342,7 @@ S_vivifies(const OPCODE type)
 static void
 S_lvref(pTHX_ OP *o, I32 type)
 {
+    dVAR;
     OP *kid;
     switch (o->op_type) {
     case OP_COND_EXPR: