1 files changed, 4 insertions, 0 deletions
diff --git a/perl.h b/perl.h
index ddeff99158..697765ea29 100644
--- a/perl.h
+++ b/perl.h
@@ -2297,6 +2297,10 @@ EXT bool	numeric_local INIT(TRUE);    /* Assume local numerics */
 #define printf PerlIO_stdoutf
 #endif
 
+#ifndef PERL_SCRIPT_MODE
+#define PERL_SCRIPT_MODE "r"
+#endif
+
 /*
  * nice_chunk and nice_chunk size need to be set
  * and queried under the protection of sv_mutex