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
[perl5.git] / 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++;