Move ftsuid ftsgid ftsvtx into Perl_pp_ftrowned.

[p5sagit/p5-mst-13.2.git] / deb.c

diff --git a/deb.c b/deb.c
index b34520e..878b7cb 100644 (file)
--- a/deb.c
+++ b/deb.c
@@ -93,7 +93,7 @@ S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max,
 {
 #ifdef DEBUGGING
     register I32 i = stack_max - 30;
-    I32 *markscan = PL_markstack + mark_min;
+    const I32 *markscan = PL_markstack + mark_min;
     if (i < stack_min)
        i = stack_min;
     
@@ -293,4 +293,12 @@ Perl_deb_stack_all(pTHX)
 #endif /* DEBUGGING */
 }
 
-
+/*
+ * Local variables:
+ * c-indentation-style: bsd
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ *
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */