This variable determines the maximum numbereval EXPR/BEGIN orrequire/BEGIN block nesting that is allowed. This means it also controls the maximum nesting ofuse statements as well.
The default of 1000 should be sufficiently large for normal working purposes, and if you must raise it then you should be conservative with your choice or you may encounter segfaults from exhaustion of the C stack. It seems unlikely that real code has a use depth above 1000, but we have left this configurable just in case.
When set to0 thenBEGIN blocks inside ofeval EXPR orrequire EXPR are forbidden entirely and will trigger an exception which will terminate the compilation and in the case ofrequire will throw an exception, or in the case ofeval return the error in$@ as usual.
Consider the code
perl -le'sub f { eval "BEGIN { f() }"; } f()'each invocation off() will consume considerable C stack, and this variable is used to cause code like this to die instead of exhausting the C stack and triggering a segfault. Needless to say code like this is unusual, it is unlikely you will actually need to raise the setting. However it may be useful to set it to 0 for a limited time period to prevent BEGIN{} blocks from being executed during aneval EXPR.
Note that setting this to 1 would NOT affect code like this:
BEGIN { $n += 1; BEGIN { $n += 2; BEGIN { $n += 4 } } }The reason is that BEGIN blocks are executed immediately after they are completed, thus the innermost will execute before the ones which contain it have even finished compiling, and the depth will not go above 1. In fact the above code is equivalent to
BEGIN { $n+=4 }BEGIN { $n+=2 }BEGIN { $n+=1 }which makes it obvious why a ${^MAX_EVAL_BEGIN_DEPTH} of 1 would not block this code.
OnlyBEGIN's executed inside of aneval orrequire (possibly viause) are affected.
Perldoc Browser is maintained by Dan Book (DBOOK). Please contact him via theGitHub issue tracker oremail regarding any issues with the site itself, search, or rendering of documentation.
The Perl documentation is maintained by the Perl 5 Porters in the development of Perl. Please contact them via thePerl issue tracker, themailing list, orIRC to report any issues with the contents or format of the documentation.