This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix op.c under -DPERL_GLOBAL_STRUCT
authorDavid Mitchell <davem@iabyn.com>
Tue, 14 Oct 2014 11:45:24 +0000 (12:45 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 14 Oct 2014 11:45:24 +0000 (12:45 +0100)
op.c

diff --git a/op.c b/op.c
index 6d6b1a8..50346bf 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2342,6 +2342,7 @@ S_vivifies(const OPCODE type)
 static void
 S_lvref(pTHX_ OP *o, I32 type)
 {
+    dVAR;
     OP *kid;
     switch (o->op_type) {
     case OP_COND_EXPR: