add a bareword_filehandles feature, which is enabled by default

This disables use of bareword filehandles except for the built-in handles

1 files changed, 3 insertions, 0 deletions

diff --git a/proto.h b/proto.h
index 46e69cc206..333dde15e6 100644
--- a/proto.h
+++ b/proto.h
@@ -2533,6 +2533,9 @@ PERL_CALLCONV char*	Perl_ninstr(const char* big, const char* bigend, const char*
 #define PERL_ARGS_ASSERT_NINSTR	\
 	assert(big); assert(bigend); assert(little); assert(lend)
 
+PERL_CALLCONV void	Perl_no_bareword_filehandle(pTHX_ const char *fhname);
+#define PERL_ARGS_ASSERT_NO_BAREWORD_FILEHANDLE	\
+	assert(fhname)
 PERL_CALLCONV_NO_RET void	Perl_noperl_die(const char* pat, ...)
 			__attribute__noreturn__
 			__attribute__format__(__printf__,1,2);