This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
S_op_integerize() needs a dVAR, else -DPERL_GLOBAL_STRUCT doesn't build.
authorNicholas Clark <nick@ccl4.org>
Tue, 6 Sep 2011 11:16:58 +0000 (13:16 +0200)
committerNicholas Clark <nick@ccl4.org>
Tue, 6 Sep 2011 11:16:58 +0000 (13:16 +0200)
op.c

diff --git a/op.c b/op.c
index b9b4378..2dff059 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2922,6 +2922,7 @@ S_op_integerize(pTHX_ OP *o)
        && !(type == OP_NEGATE && cUNOPo->op_first->op_type == OP_CONST
             && (cUNOPo->op_first->op_private & OPpCONST_BARE)))
     {
+       dVAR;
        o->op_ppaddr = PL_ppaddr[type = ++(o->op_type)];
     }