2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index ebd6020466..c23ea3b373 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Jan  7 07:48:01 2003  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
+
+	* eval.c (rb_f_local_variables): skip $_, $~ and flip states in
+	  dynamic variables.  [ruby-core:00681]
+
 Mon Jan  6 23:36:29 2003  Akinori MUSHA  <knu@iDaemons.org>
 
 	* st.h, st.c: Introduce new conventional typedef's, st_data_t,
diff --git a/eval.c b/eval.c
index 955b644fa1..7ff9b06c46 100644
--- a/eval.c
+++ b/eval.c
@@ -6004,7 +6004,7 @@ rb_f_local_variables()
 
     vars = ruby_dyna_vars;
     while (vars) {
-	if (vars->id) {
+	if (vars->id && rb_is_local_id(vars->id)) { /* skip $_, $~ and flip states */
 	    rb_ary_push(ary, rb_str_new2(rb_id2name(vars->id)));
 	}
 	vars = vars->next;