Change 32955 by [EMAIL PROTECTED] on 2008/01/11 13:59:32
Rename PERL_MAX_SUB_DEPTH to PERL_SUB_DEPTH_WARN, per Tim Bunce's
suggestion
Affected files ...
... //depot/perl/perl.h#821 edit
... //depot/perl/pp_ctl.c#657 edit
... //depot/perl/pp_hot.c#554 edit
Differences ...
==== //depot/perl/perl.h#821 (text) ====
Index: perl/perl.h
--- perl/perl.h#820~32949~ 2008-01-11 03:31:34.000000000 -0800
+++ perl/perl.h 2008-01-11 05:59:32.000000000 -0800
@@ -920,8 +920,8 @@
#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 */
==== //depot/perl/pp_ctl.c#657 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#656~32950~ 2008-01-11 04:14:04.000000000 -0800
+++ perl/pp_ctl.c 2008-01-11 05:59:32.000000000 -0800
@@ -2432,7 +2432,7 @@
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));
}
==== //depot/perl/pp_hot.c#554 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#553~32951~ 2008-01-11 04:47:57.000000000 -0800
+++ perl/pp_hot.c 2008-01-11 05:59:32.000000000 -0800
@@ -2821,7 +2821,7 @@
* 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
End of Patch.
