diff options
author | Karl Williamson <khw@cpan.org> | 2020-12-06 15:01:14 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-12-19 22:00:30 -0700 |
commit | 03694582f8c247d4a1cc8a7bb8348af0173944d7 (patch) | |
tree | 663345306aa5475ca4758b0db7a5f026c410c865 /makedef.pl | |
parent | 35bcf7ffa2bfeab79ab7b4eb0d35f462775b54d2 (diff) | |
download | perl-03694582f8c247d4a1cc8a7bb8348af0173944d7.tar.gz |
Fix broken PERL_MEM_LOG under threads
This fixes GH #18341
There are problems with getenv() on threaded perls wchich can lead to
incorrect results when compiled with PERL_MEM_LOG.
Commit 0b83dfe6dd9b0bda197566adec923f16b9a693cd fixed this for some
platforms, but as Tony Cook, pointed out there may be
standards-compliant platforms that that didn't fix.
The detailed comments outline the issues and (complicated) full solution.
Diffstat (limited to 'makedef.pl')
-rw-r--r-- | makedef.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/makedef.pl b/makedef.pl index 1d1941f589..16dd951086 100644 --- a/makedef.pl +++ b/makedef.pl @@ -486,6 +486,10 @@ unless ($define{'PERL_TRACK_MEMPOOL'}) { ++$skip{PL_memory_debug_header}; } +unless ($define{'PERL_MEM_LOG'}) { + ++$skip{PL_mem_log}; +} + unless ($define{'MULTIPLICITY'}) { ++$skip{$_} foreach qw( PL_interp_size |