1 files changed, 5 insertions, 0 deletions
diff --git a/cfg.mk b/cfg.mk
index ae05f8c52..dff5de5d9 100644
--- a/cfg.mk
+++ b/cfg.mk
@@ -233,6 +233,11 @@ sc_require_stdio_safer:
 	else :;								\
 	fi
 
+sc_prohibit_perl_hash_quotes:
+	@prohibit="\{'[A-Z_]+' *[=}]"					\
+	halt="in Perl code, write \$$hash{KEY}, not \$$hash{'K''EY'}"	\
+	  $(_sc_search_regexp)
+
 # Prefer xnanosleep over other less-precise sleep methods
 sc_prohibit_sleep:
 	@prohibit='\<(nano|u)?sleep \('					\