summaryrefslogtreecommitdiff
path: root/hv.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2006-04-28 00:18:30 +0300
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-04-28 08:51:09 +0000
commit7a89be6672adca2e4f7bec719e7d9e358c540ce5 (patch)
tree3aa08a8f7f90f8136232e96548e7191ec101cd26 /hv.c
parent3c12f9b9b81869dda969f4eaab50a183e5bd8779 (diff)
downloadperl-7a89be6672adca2e4f7bec719e7d9e358c540ce5.tar.gz
dVAR (-DPERL_GLOBAL_STRUCT_PRIVATE) update
Message-ID: <44510AF6.6040603@gmail.com> p4raw-id: //depot/perl@27990
Diffstat (limited to 'hv.c')
-rw-r--r--hv.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/hv.c b/hv.c
index d7b7f4025c..cc2a384774 100644
--- a/hv.c
+++ b/hv.c
@@ -2564,6 +2564,7 @@ in C<struct refcounted_he *>.
HV *
Perl_refcounted_he_chain_2hv(pTHX_ const struct refcounted_he *chain)
{
+ dVAR;
HV *hv = newHV();
U32 placeholders = 0;
/* We could chase the chain once to get an idea of the number of keys,
@@ -2685,6 +2686,7 @@ reference count of 1.
struct refcounted_he *
Perl_refcounted_he_new(pTHX_ struct refcounted_he *const parent,
SV *const key, SV *const value) {
+ dVAR;
struct refcounted_he *he;
STRLEN key_len;
const char *key_p = SvPV_const(key, key_len);