diff options
author | David Mitchell <davem@iabyn.com> | 2020-03-20 13:36:37 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2020-03-20 13:45:55 +0000 |
commit | fe5892c19249419cf5c19730bf44e2dd7703be46 (patch) | |
tree | 3591beec922f9cd403ad99d8dfa009071f671dd9 | |
parent | a534eb5d131a5cd6a748c62c6eb1dd2a579b6e92 (diff) | |
download | perl-fe5892c19249419cf5c19730bf44e2dd7703be46.tar.gz |
fix PERL_GLOBAL_STRUCT_PRIVATE builds
Sprinkle some dVAR pixie dust to fix recent bitrot on that build
configuration.
-rw-r--r-- | op.c | 4 | ||||
-rw-r--r-- | util.c | 1 |
2 files changed, 5 insertions, 0 deletions
@@ -5502,6 +5502,7 @@ Perl_invert(pTHX_ OP *o) OP * Perl_cmpchain_start(pTHX_ I32 type, OP *left, OP *right) { + dVAR; BINOP *bop; OP *op; @@ -5527,6 +5528,7 @@ Perl_cmpchain_start(pTHX_ I32 type, OP *left, OP *right) OP * Perl_cmpchain_extend(pTHX_ I32 type, OP *ch, OP *right) { + dVAR; BINOP *bop; OP *op; @@ -5566,6 +5568,8 @@ Perl_cmpchain_extend(pTHX_ I32 type, OP *ch, OP *right) OP * Perl_cmpchain_finish(pTHX_ OP *ch) { + dVAR; + PERL_ARGS_ASSERT_CMPCHAIN_FINISH; if (ch->op_type != OP_NULL) { OPCODE cmpoptype = ch->op_type; @@ -3632,6 +3632,7 @@ void Perl_init_tm(pTHX_ struct tm *ptm) /* see mktime, strftime and asctime */ { #ifdef HAS_TM_TM_ZONE + dVAR; Time_t now; const struct tm* my_tm; PERL_UNUSED_CONTEXT; |