diff options
Diffstat (limited to 'inline.h')
-rw-r--r-- | inline.h | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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)); |