diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-10-24 18:33:26 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-03-29 20:29:22 +0100 |
| commit | 31b85d28610fd3d7262773f0d04ee3a81afb4773 (patch) | |
| tree | ce16ab25a0dbffdf7ece3787b928086cd6ecf16a /util.c | |
| parent | 79eafc8bfc6de1821931e2b481cbc6506f210576 (diff) | |
| download | perl-31b85d28610fd3d7262773f0d04ee3a81afb4773.tar.gz | |
Add PERL_ARGS_ASSERT_MEM_LOG_COMMON to S_mem_log_common().
p4raw-id: //depot/perl@34570
(cherry picked from commit 4ca7bcefeb672d89a032dee75decf2670a253fdf)
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -5568,6 +5568,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) |