From 467fdaa25ef3a55b35d6672dc1d63eb8f6f18938 Mon Sep 17 00:00:00 2001
From: "Paul \"LeoNerd\" Evans" <leonerd@leonerd.org.uk>
Date: Thu, 9 Jun 2022 18:36:44 +0100
Subject: 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.
---
 inline.h | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'inline.h')

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));
-- 
cgit v1.2.1