From 7a89be6672adca2e4f7bec719e7d9e358c540ce5 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 28 Apr 2006 00:18:30 +0300 Subject: dVAR (-DPERL_GLOBAL_STRUCT_PRIVATE) update Message-ID: <44510AF6.6040603@gmail.com> p4raw-id: //depot/perl@27990 --- hv.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'hv.c') diff --git a/hv.c b/hv.c index d7b7f4025c..cc2a384774 100644 --- a/hv.c +++ b/hv.c @@ -2564,6 +2564,7 @@ in C. 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); -- cgit v1.2.1