This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
include PERL_TRACK_MEMPOOL in perl -V output
authorDave Mitchell <davem@fdisolutions.com>
Tue, 22 Nov 2005 16:52:24 +0000 (16:52 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Tue, 22 Nov 2005 16:52:24 +0000 (16:52 +0000)
p4raw-id: //depot/perl@26196

perl.c

diff --git a/perl.c b/perl.c
index 8a0483c..4b005b6 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1786,6 +1786,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #  ifdef PERL_OLD_COPY_ON_WRITE
                             " PERL_OLD_COPY_ON_WRITE"
 #  endif
 #  ifdef PERL_OLD_COPY_ON_WRITE
                             " PERL_OLD_COPY_ON_WRITE"
 #  endif
+#  ifdef PERL_TRACK_MEMPOOL
+                            " PERL_TRACK_MEMPOOL"
+#  endif
 #  ifdef PERL_USE_SAFE_PUTENV
                             " PERL_USE_SAFE_PUTENV"
 #  endif
 #  ifdef PERL_USE_SAFE_PUTENV
                             " PERL_USE_SAFE_PUTENV"
 #  endif