This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Perl_refcounted_he_inc() needs a dVAR to compile with -DPERL_GLOBAL_STRUCT
authorNicholas Clark <nick@ccl4.org>
Thu, 28 Apr 2011 14:14:03 +0000 (15:14 +0100)
committerNicholas Clark <nick@ccl4.org>
Sun, 22 May 2011 20:02:40 +0000 (21:02 +0100)
hv.c

diff --git a/hv.c b/hv.c
index 2bb8ab0..aa1783e 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -3273,6 +3273,7 @@ to this function: no action occurs and a null pointer is returned.
 struct refcounted_he *
 Perl_refcounted_he_inc(pTHX_ struct refcounted_he *he)
 {
+    dVAR;
     if (he) {
        HINTS_REFCNT_LOCK;
        he->refcounted_he_refcnt++;