Introduce macro PERL_MAX_SUB_DEPTH

[perl5.git] / perl.h

diff --git a/perl.h b/perl.h
index fa677ca..c028bba 100644 (file)
--- 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.