This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cleanups for PERL_DEBUG_READONLY_OPS debugging code - remove a now-
authorNicholas Clark <nick@ccl4.org>
Mon, 2 Apr 2007 21:25:03 +0000 (21:25 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 2 Apr 2007 21:25:03 +0000 (21:25 +0000)
unneeded include of <sys/mman.h>, and make PERL_DEBUG_READONLY_OPS
appear in -V output.

p4raw-id: //depot/perl@30834

perl.c

diff --git a/perl.c b/perl.c
index b983e7d..f04f4cc 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1840,6 +1840,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #  ifdef NO_MATHOMS
                             " NO_MATHOMS"
 #  endif
+#  ifdef PERL_DEBUG_READONLY_OPS
+                            " PERL_DEBUG_READONLY_OPS"
+#  endif
 #  ifdef PERL_DONT_CREATE_GVSV
                             " PERL_DONT_CREATE_GVSV"
 #  endif
@@ -2374,10 +2377,6 @@ perl_run(pTHXx)
     return ret;
 }
 
-#ifdef PERL_DEBUG_READONLY_OPS
-#  include <sys/mman.h>
-#endif
-
 STATIC void
 S_run_body(pTHX_ I32 oldscope)
 {