diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-11 11:31:34 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-11 11:31:34 +0000 |
| commit | ccb2c8b8ab146edc148e377cd6b108da77d1320b (patch) | |
| tree | b58534185023feabf06d12fe6445ce3fbc9ebbdb /pp_ctl.c | |
| parent | 52b4506763c1e322f848f17908bebdf7672f168e (diff) | |
| download | perl-ccb2c8b8ab146edc148e377cd6b108da77d1320b.tar.gz | |
Introduce macro PERL_MAX_SUB_DEPTH
p4raw-id: //depot/perl@32949
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)); } |