From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 1 Apr 2006 19:38:31 +0000 (+0000)
Subject: The call to Perl_hv_assert(aTHX_ hv) should be wrapped in a DEBUG_A().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=def9038f0e6b68e6331316ef6cd457a2bf75dab6;p=p5sagit%2Fp5-mst-13.2.git

The call to Perl_hv_assert(aTHX_ hv) should be wrapped in a DEBUG_A().

p4raw-id: //depot/perl@27665
---

diff --git a/hv.c b/hv.c
index 118439a..4565cc0 100644
--- 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;
 }