From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Fri, 24 Oct 2008 18:33:26 +0000 (+0000)
Subject: Add PERL_ARGS_ASSERT_MEM_LOG_COMMON to S_mem_log_common().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ca7bcefeb672d89a032dee75decf2670a253fdf;p=p5sagit%2Fp5-mst-13.2.git

Add PERL_ARGS_ASSERT_MEM_LOG_COMMON to S_mem_log_common().

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

diff --git a/util.c b/util.c
index 1560fb5..6d4e3af 100644
--- a/util.c
+++ b/util.c
@@ -5562,6 +5562,9 @@ S_mem_log_common(enum mem_log_type mlt, const UV n, const UV typesize, const cha
 # if defined(PERL_MEM_LOG_ENV) || defined(PERL_MEM_LOG_ENV_FD)
     const char *s;
 # endif
+
+    PERL_ARGS_ASSERT_MEM_LOG_COMMON;
+
 # ifdef PERL_MEM_LOG_ENV
     s = PerlEnv_getenv(mlt < MLT_NEW_SV ? "PERL_MEM_LOG" : "PERL_SV_LOG");
     if (s ? atoi(s) : 0)