2 files changed, 8 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 2ac6b484c8..bb45282088 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Jan 21 14:32:02 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* parse.y (debug_lines): calls rb_intern() once.
+
 Wed Jan 21 13:58:17 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* include/ruby/io.h (FMODE_EOF): EOF flag on TTY.
diff --git a/parse.y b/parse.y
index a6495610bd..f0b019670a 100644
--- a/parse.y
+++ b/parse.y
@@ -4939,8 +4939,10 @@ VALUE ruby_suppress_tracing(VALUE (*func)(VALUE, int), VALUE arg, int always);
 static VALUE
 debug_lines(const char *f)
 {
-    if (rb_const_defined_at(rb_cObject, rb_intern("SCRIPT_LINES__"))) {
-	VALUE hash = rb_const_get_at(rb_cObject, rb_intern("SCRIPT_LINES__"));
+    ID script_lines;
+    CONST_ID(script_lines, "SCRIPT_LINES__");
+    if (rb_const_defined_at(rb_cObject, script_lines)) {
+	VALUE hash = rb_const_get_at(rb_cObject, script_lines);
 	if (TYPE(hash) == T_HASH) {
 	    VALUE fname = rb_str_new2(f);
 	    VALUE lines = rb_ary_new();