add missing dVAR in pp_avhvswitch

make it build under -DPERL_GLOBAL_STRUCT.

diff --git a/pp.c b/pp.c
index 17f31af..3df0bea 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -6418,7 +6418,7 @@ PP(pp_coreargs)
 
 PP(pp_avhvswitch)
 {
-    dSP;
+    dVAR; dSP;
     return PL_ppaddr[
                (SvTYPE(TOPs) == SVt_PVAV ? OP_AEACH : OP_EACH)
                    + (PL_op->op_private & 3)