The call to Perl_hv_assert(aTHX_ hv) should be wrapped in a DEBUG_A().
Nicholas Clark [Sat, 1 Apr 2006 19:38:31 +0000 (19:38 +0000)]
p4raw-id: //depot/perl@27665

hv.c

diff --git a/hv.c b/hv.c
index 118439a..4565cc0 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -2590,9 +2590,7 @@ Perl_refcounted_he_chain_2hv(pTHX_ const struct refcounted_he *chain)
        flags, but it's probably not worth it, as this per-hash flag is only
        really meant as an optimisation for things like Storable.  */
     HvHASKFLAGS_on(hv);
-#ifdef DEBUGGING
-    Perl_hv_assert(aTHX_ hv);
-#endif
+    DEBUG_A(Perl_hv_assert(aTHX_ hv));
 
     return hv;
 }