fix -DPERL_GLOBAL_STRUCT builds broken with the hash merge
authorTony Cook <tony@develop-help.com>
Sun, 18 Nov 2012 23:41:32 +0000 (10:41 +1100)
committerTony Cook <tony@develop-help.com>
Sun, 18 Nov 2012 23:41:32 +0000 (10:41 +1100)
note: this failed to build in smoke-me eg.
http://perl.develop-help.com/raw/?id=131750

gv.c
hv.c

diff --git a/gv.c b/gv.c
index 05ad515..0ec3e3a 100644 (file)
--- 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 3069e67..c34d4d3 100644 (file)
--- 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;
       }