From e8aa990f92e2a150114138ebcb7b7b789736be65 Mon Sep 17 00:00:00 2001
From: eban <eban@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 1 Jul 2003 10:03:04 +0000
Subject: [PATCH] * parse.y (rb_intern): should use mbclen instead of mblen.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4021 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog | 4 ++++
 parse.y   | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index eeca881eb8..fad987e010 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jul  1 19:02:12 2003  WATANABE Hirofumi  <eban@ruby-lang.org>
+
+	* parse.y (rb_intern): should use mbclen instead of mblen.
+
 Tue Jul  1 10:36:19 2003  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 
 	* class.c (rb_define_class, rb_define_module): also set constant under
diff --git a/parse.y b/parse.y
index e87bcfec59..24382950b9 100644
--- a/parse.y
+++ b/parse.y
@@ -5879,8 +5879,8 @@ rb_intern(name)
 	}
 	break;
     }
-    while (*m && is_identchar(*m)) {
-	m += mblen(m, name + last - m + 1);
+    while (m <= name + last && is_identchar(*m)) {
+	m += mbclen(*m);
     }
     if (*m) id = ID_JUNK;
     id |= ++last_id << ID_SCOPE_SHIFT;