This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix build under -DPERL_GLOBAL_STRUCT
authorDavid Mitchell <davem@iabyn.com>
Tue, 4 Nov 2014 16:09:48 +0000 (16:09 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 4 Nov 2014 16:09:48 +0000 (16:09 +0000)
broken by ddacf109924c0c8a66c97d6dedaa70047c373454

op.c

diff --git a/op.c b/op.c
index 28811c7..147f3c4 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1223,6 +1223,7 @@ S_op_sibling_newUNOP(pTHX_ OP *parent, OP *start, I32 type, I32 flags)
 LOGOP *
 S_alloc_LOGOP(pTHX_ I32 type, OP *first, OP* other)
 {
+    dVAR;
     LOGOP *logop;
     OP *kid = first;
     NewOp(1101, logop, 1, LOGOP);