* ruby.c (proc_options): -F set compiled regular expression to $;.

  [ruby-talk:77381]

* string.c (Init_String): no setter type check for $;


git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4230 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

3 files changed, 10 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index cec645908..9f5173299 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,13 @@ Wed Jul 30 15:54:04 2003  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 	* ext/openssl/ossl_ssl.c (ossl_sslctx_initialize): should initialize
 	  instance variables. [ruby-talk:77362]
 
+Wed Jul 30 15:39:54 2003  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* ruby.c (proc_options): -F set compiled regular expression to $;.
+	  [ruby-talk:77381]
+
+	* string.c (Init_String): no setter type check for $;
+
 Wed Jul 30 15:10:02 2003  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
 
 	* error.c (rb_raise): snprintf() termination moved to
diff --git a/ruby.c b/ruby.c
index 39755802c..344007b5a 100644
--- a/ruby.c
+++ b/ruby.c
@@ -589,7 +589,7 @@ proc_options(argc, argv)
 
 	  case 'F':
 	    if (*++s) {
-		rb_fs = rb_str_new2(s);
+		rb_fs = rb_reg_new(s, strlen(s), 0);
 	    }
 	    break;
 
diff --git a/string.c b/string.c
index 9d3da9206..ae157f474 100644
--- a/string.c
+++ b/string.c
@@ -3402,6 +3402,6 @@ Init_String()
     id_to_s = rb_intern("to_s");
 
     rb_fs = Qnil;
-    rb_define_hooked_variable("$;", &rb_fs, 0, rb_str_setter);
-    rb_define_hooked_variable("$-F", &rb_fs, 0, rb_str_setter);
+    rb_define_variable("$;", &rb_fs);
+    rb_define_variable("$-F", &rb_fs);
 }