From ccb2c8b8ab146edc148e377cd6b108da77d1320b Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 11 Jan 2008 11:31:34 +0000 Subject: [PATCH] Introduce macro PERL_MAX_SUB_DEPTH p4raw-id: //depot/perl@32949 --- perl.h | 5 +++++ pp_ctl.c | 2 +- pp_hot.c | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/perl.h b/perl.h index fa677ca..c028bba 100644 --- a/perl.h +++ b/perl.h @@ -919,6 +919,11 @@ EXTERN_C int usleep(unsigned int); #define PERL_ARENA_SIZE 4080 #endif +/* Maximum level of recursion */ +#ifndef PERL_MAX_SUB_DEPTH +#define PERL_MAX_SUB_DEPTH 100 +#endif + #endif /* PERL_CORE */ /* We no longer default to creating a new SV for GvSV. diff --git a/pp_ctl.c b/pp_ctl.c index 07f8504..564e437 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -2427,7 +2427,7 @@ PP(pp_goto) if (CvDEPTH(cv) < 2) SvREFCNT_inc_simple_void_NN(cv); else { - if (CvDEPTH(cv) == 100 && ckWARN(WARN_RECURSION)) + if (CvDEPTH(cv) == PERL_MAX_SUB_DEPTH && ckWARN(WARN_RECURSION)) sub_crush_depth(cv); pad_push(padlist, CvDEPTH(cv)); } diff --git a/pp_hot.c b/pp_hot.c index a24f802..e3eebe6 100644 --- 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 -- 1.8.3.1