From 16b1b2978e4f4d838f3d12e7221139a92429603b Mon Sep 17 00:00:00 2001
From: KOBAYASHI Shuji <shuujii@gmail.com>
Date: Thu, 14 Mar 2019 23:09:05 +0900
Subject: Fix constant name validation

`X!` etc are invalid constant name.
---
 src/class.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/class.c')

diff --git a/src/class.c b/src/class.c
index 9d6fd631f..da95f5c22 100644
--- a/src/class.c
+++ b/src/class.c
@@ -1898,7 +1898,7 @@ mrb_mod_undef(mrb_state *mrb, mrb_value mod)
 static mrb_bool
 const_name_p(mrb_state *mrb, const char *name, mrb_int len)
 {
-  return len > 0 && ISUPPER(name[0]);
+  return len > 0 && ISUPPER(name[0]) && mrb_ident_p(name+1, len-1);
 }
 
 static void
-- 
cgit v1.2.3