diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-10-24 18:33:26 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-10-24 18:33:26 +0000 |
| commit | 4ca7bcefeb672d89a032dee75decf2670a253fdf (patch) | |
| tree | c052a91eff9cc99d27ec8dea705d7caa591ea726 /util.c | |
| parent | 56b5603ec7962bbd71d2b0950444e5617e6c8329 (diff) | |
| download | perl-4ca7bcefeb672d89a032dee75decf2670a253fdf.tar.gz | |
Add PERL_ARGS_ASSERT_MEM_LOG_COMMON to S_mem_log_common().
p4raw-id: //depot/perl@34570
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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) |