1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 745cb5ff68..5d396b8a18 100644
--- a/op.c
+++ b/op.c
@@ -594,7 +594,7 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
 	!(is_our ||
 	  isALPHA(name[1]) ||
 	  ((flags & SVf_UTF8) && isIDFIRST_utf8((U8 *)name+1)) ||
-	  (name[1] == '_' && (*name == '$' || len > 2))))
+	  (name[1] == '_' && len > 2)))
     {
 	if (!(flags & SVf_UTF8 && UTF8_IS_START(name[1]))
 	 && isASCII(name[1])