summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2008-01-04 15:03:40 +0000
committerMarcus Holland-Moritz <mhx-perl@gmx.net>2008-01-04 15:03:40 +0000
commitd75c0fe73b99eda1eea10ae83f66640c4a47d64c (patch)
tree083342084e35c0a019df4b60a1a46c417fda41a4 /op.c
parentc1a049cb5a821110aa1344009c4cef983084d049 (diff)
downloadperl-d75c0fe73b99eda1eea10ae83f66640c4a47d64c.tar.gz
Follow up on change #32680. This fixes compilation
with -DPERL_GLOBAL_STRUCT. p4raw-link: @32680 on //depot/perl: 878d132a73f5d089e821fedd49aa4835a2786d1d p4raw-id: //depot/perl@32828
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 42f997d0db..2ea2ef8ef7 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) {