drop remaining mentions of PERL_MEM_LOG_FOO envars
Jim Cromie [Sun, 21 Jun 2009 13:52:28 +0000 (07:52 -0600)]
perl.c has the last mentions of PERL_MEM_LOG_ENV*. drop them too.

(rgs: plus some in handy.h's comments too)

handy.h
perl.c

diff --git a/handy.h b/handy.h
index d890f70..d390667 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -784,7 +784,7 @@ PoisonWith(0xEF) for catching access to freed memory.
  *   through reallocs and frees, but how to do that without
  *   any News() happening...?
  * - lots of -Ddefines to get useful/controllable output
- * - lots of ENV reads when you get control -DPERL_MEM_LOG_ENV*
+ * - lots of ENV reads
  */
 
 PERL_EXPORT_C Malloc_t Perl_mem_log_alloc(const UV n, const UV typesize, const char *type_name, Malloc_t newalloc, const char *filename, const int linenumber, const char *funcname);
diff --git a/perl.c b/perl.c
index 4712a8b..e70bf7e 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1772,18 +1772,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #  ifdef PERL_MEM_LOG
                             " PERL_MEM_LOG"
 #  endif
-#  ifdef PERL_MEM_LOG_ENV
-                            " PERL_MEM_LOG_ENV"
-#  endif
-#  ifdef PERL_MEM_LOG_ENV_FD
-                            " PERL_MEM_LOG_ENV_FD"
-#  endif
 #  ifdef PERL_MEM_LOG_NOIMPL
                             " PERL_MEM_LOG_NOIMPL"
 #  endif
-#  ifdef PERL_MEM_LOG_TIMESTAMP
-                            " PERL_MEM_LOG_TIMESTAMP"
-#  endif
 #  ifdef PERL_USE_DEVEL
                             " PERL_USE_DEVEL"
 #  endif