From: David Mitchell <davem@iabyn.com>
Date: Fri, 20 Mar 2020 13:36:37 +0000 (+0000)
Subject: fix PERL_GLOBAL_STRUCT_PRIVATE builds
X-Git-Tag: v5.31.10~3
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/fe5892c19249419cf5c19730bf44e2dd7703be46?ds=sidebyside

fix PERL_GLOBAL_STRUCT_PRIVATE builds

Sprinkle some dVAR pixie dust to fix recent bitrot on that build
configuration.
---

diff --git a/op.c b/op.c
index 0b8e961..75a38d3 100644
--- a/op.c
+++ b/op.c
@@ -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;
diff --git a/util.c b/util.c
index 3b91096..e95cb66 100644
--- a/util.c
+++ b/util.c
@@ -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;