2 files changed, 2 insertions, 0 deletions
diff --git a/gv.c b/gv.c
index 05ad515e72..0ec3e3a2f7 100644
--- a/gv.c
+++ b/gv.c
@@ -167,6 +167,7 @@ Perl_newGP(pTHX_ GV *const gv)
 #ifndef USE_ITHREADS
     SV * temp_sv;
 #endif
+    dVAR;
 
     PERL_ARGS_ASSERT_NEWGP;
     Newxz(gp, 1, GP);
diff --git a/hv.c b/hv.c
index 3069e67bf4..c34d4d395d 100644
--- a/hv.c
+++ b/hv.c
@@ -2638,6 +2638,7 @@ Perl_share_hek(pTHX_ const char *str, I32 len, register U32 hash)
          we should flag that it needs upgrading on keys or each.  Also flag
          that we need share_hek_flags to free the string.  */
       if (str != save) {
+          dVAR;
           PERL_HASH(hash, str, len);
           flags |= HVhek_WASUTF8 | HVhek_FREEKEY;
       }