From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 2 Apr 2007 21:25:03 +0000 (+0000)
Subject: Cleanups for PERL_DEBUG_READONLY_OPS debugging code - remove a now-
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e661f6a5e9caa656f01592947f38c9e56ec3d8a;p=p5sagit%2Fp5-mst-13.2.git

Cleanups for PERL_DEBUG_READONLY_OPS debugging code - remove a now-
unneeded include of <sys/mman.h>, and make PERL_DEBUG_READONLY_OPS
appear in -V output.

p4raw-id: //depot/perl@30834
---

diff --git a/perl.c b/perl.c
index b983e7d..f04f4cc 100644
--- 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)
 {