Rename PERL_MAX_SUB_DEPTH to PERL_SUB_DEPTH_WARN, per Tim Bunce's

suggestion

p4raw-id: //depot/perl@32955

3 files changed, 4 insertions, 4 deletions

diff --git a/perl.h b/perl.h
index c028bba810..0dadba4566 100644
--- a/perl.h
+++ b/perl.h
@@ -920,8 +920,8 @@ EXTERN_C int usleep(unsigned int);
 #endif
 
 /* Maximum level of recursion */
-#ifndef PERL_MAX_SUB_DEPTH
-#define PERL_MAX_SUB_DEPTH 100
+#ifndef PERL_SUB_DEPTH_WARN
+#define PERL_SUB_DEPTH_WARN 100
 #endif
 
 #endif /* PERL_CORE */
diff --git a/pp_ctl.c b/pp_ctl.c
index d5027204d4..5cc002c603 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2432,7 +2432,7 @@ PP(pp_goto)
 		if (CvDEPTH(cv) < 2)
 		    SvREFCNT_inc_simple_void_NN(cv);
 		else {
-		    if (CvDEPTH(cv) == PERL_MAX_SUB_DEPTH && ckWARN(WARN_RECURSION))
+		    if (CvDEPTH(cv) == PERL_SUB_DEPTH_WARN && ckWARN(WARN_RECURSION))
 			sub_crush_depth(cv);
 		    pad_push(padlist, CvDEPTH(cv));
 		}
diff --git a/pp_hot.c b/pp_hot.c
index 6288db114d..2cb394e8a6 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2821,7 +2821,7 @@ try_autoload:
 	 * stuff so that __WARN__ handlers can safely dounwind()
 	 * if they want to
 	 */
-	if (CvDEPTH(cv) == PERL_MAX_SUB_DEPTH && ckWARN(WARN_RECURSION)
+	if (CvDEPTH(cv) == PERL_SUB_DEPTH_WARN && ckWARN(WARN_RECURSION)
 	    && !(PERLDB_SUB && cv == GvCV(PL_DBsub)))
 	    sub_crush_depth(cv);
 #if 0