Introduce macro PERL_MAX_SUB_DEPTH

[perl5.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index a24f802..e3eebe6 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2830,7 +2830,7 @@ try_autoload:
         * stuff so that __WARN__ handlers can safely dounwind()
         * if they want to
         */
-       if (CvDEPTH(cv) == 100 && ckWARN(WARN_RECURSION)
+       if (CvDEPTH(cv) == PERL_MAX_SUB_DEPTH && ckWARN(WARN_RECURSION)
            && !(PERLDB_SUB && cv == GvCV(PL_DBsub)))
            sub_crush_depth(cv);
 #if 0