Only compile Perl_hv_assert with DEBUGGING.

p4raw-id: //depot/perl@27622

diff --git a/hv.c b/hv.c
index 86070e3..350ddd3 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -2522,6 +2522,8 @@ Check that a hash is in an internally consistent state.
 =cut
 */
 
+#ifdef DEBUGGING
+
 void
 Perl_hv_assert(pTHX_ HV *hv)
 {
@@ -2584,6 +2586,8 @@ Perl_hv_assert(pTHX_ HV *hv)
   HvEITER_set(hv, eiter);
 }
 
+#endif
+
 /*
  * Local variables:
  * c-indentation-style: bsd

diff --git a/makedef.pl b/makedef.pl
index 6f20f12..3745e19 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -585,6 +585,7 @@ unless ($define{'DEBUGGING'}) {
                    Perl_debstackptrs
                    Perl_pad_sv
                    Perl_sv_peek
+                   Perl_hv_assert
                    PL_block_type
                    PL_watchaddr
                    PL_watchok