Perl 如何调整递归深度，使；子程序上的深度递归；发出警告？

在OP中，提到了从默认设置100调整递归深度的可行性

有很多方法可以扩展这个限制或者完全关闭它

文档似乎没有说明如何实现这一点

---

有没有一种方法可以在不关闭警告或求助于一些黑客的

$stack\u level

变量的情况下提高限制？

使用调试器：

$DB:：deep=500

没有调试器：我只看到参考建议使用不同的
perl\u SUB\u DEPTH\u WARN
宏重新编译perl二进制文件

# disable 'Deep recursion on subroutine ...' warnings completely
no warnings 'recursion';