Add a PERL_MEM_LOG=c option

Prints more levels of C backtrace on SV allocation operations. Also
prints the perl caller file + line number.

1 files changed, 4 insertions, 1 deletions

diff --git a/inline.h b/inline.h
index 90dcf87e9d..3c9ef61fc5 100644
--- a/inline.h
+++ b/inline.h
@@ -3340,7 +3340,7 @@ Perl_mortal_getenv(const char * str)
             }
         }
 
-        /* Then each of the three significant characters */
+        /* Then each of the four significant characters */
         if (strchr(ret, 'm')) {
             *mem_log_meat++ = 'm';
         }
@@ -3350,6 +3350,9 @@ Perl_mortal_getenv(const char * str)
         if (strchr(ret, 't')) {
             *mem_log_meat++ = 't';
         }
+        if (strchr(ret, 'c')) {
+            *mem_log_meat++ = 'c';
+        }
         *mem_log_meat = '\0';
 
         assert(mem_log_meat < PL_mem_log + sizeof(PL_mem_log));