Non-Configure code required to implement a strict by default option

1 files changed, 10 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index ef8ada7a2f..5a4814604a 100644
--- a/perl.h
+++ b/perl.h
@@ -5346,6 +5346,16 @@ typedef enum {
 #define HINT_SORT_STABLE	0x00000100 /* sort styles */
 #define HINT_SORT_UNSTABLE	0x00000200
 
+#define HINT_ALL_STRICT       HINT_STRICT_REFS \
+                            | HINT_STRICT_SUBS \
+                            | HINT_STRICT_VARS
+
+#ifdef USE_STRICT_BY_DEFAULT
+#define HINTS_DEFAULT            HINT_ALL_STRICT
+#else
+#define HINTS_DEFAULT            0
+#endif
+
 /* flags for PL_sawampersand */
 
 #define SAWAMPERSAND_LEFT       1   /* saw $` */