This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Probaby a good idea to include DEBUG_LEAKING_SCALARS in -V output, as
authorNicholas Clark <nick@ccl4.org>
Tue, 8 Nov 2005 16:30:18 +0000 (16:30 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 8 Nov 2005 16:30:18 +0000 (16:30 +0000)
its presence changes structure sizes.

p4raw-id: //depot/perl@26046

perl.c

diff --git a/perl.c b/perl.c
index 25755cc..3e7ccde 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1743,6 +1743,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #  ifdef DEBUGGING
                             " DEBUGGING"
 #  endif
+#  ifdef DEBUG_LEAKING_SCALARS
+                            " DEBUG_LEAKING_SCALARS"
+#  endif
 #  ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
                             " DEBUG_LEAKING_SCALARS_FORK_DUMP"
 #  endif