From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Fri, 4 Jan 2008 15:03:40 +0000 (+0000)
Subject: Follow up on change #32680. This fixes compilation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d75c0fe73b99eda1eea10ae83f66640c4a47d64c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {