Follow up on change #32680. This fixes compilation

with -DPERL_GLOBAL_STRUCT.
p4raw-link: @32680 on //depot/perl: 878d132a73f5d089e821fedd49aa4835a2786d1d

p4raw-id: //depot/perl@32828

diff --git a/op.c b/op.c
index 42f997d..2ea2ef8 100644 (file)
--- a/op.c
+++ b/op.c
@@ -7895,7 +7895,7 @@ Perl_ck_substr(pTHX_ OP *o)
 OP *
 Perl_ck_each(pTHX_ OP *o)
 {
-
+    dVAR;
     OP *kid = cLISTOPo->op_first;
 
     if (kid->op_type == OP_PADAV || kid->op_type == OP_RV2AV) {