From 85aabef023e1a2e81c308ad98741137c73d4d80b Mon Sep 17 00:00:00 2001
From: Nobuyoshi Nakada <nobu@ruby-lang.org>
Date: Mon, 31 Aug 2020 22:13:34 +0900
Subject: [Feature #17136] Remove special behavior from $KCODE

---
 re.c | 15 ---------------
 1 file changed, 15 deletions(-)

(limited to 're.c')

diff --git a/re.c b/re.c
index 55b39bfdea..2af617ea81 100644
--- a/re.c
+++ b/re.c
@@ -3919,19 +3919,6 @@ rb_reg_regsub(VALUE str, VALUE src, struct re_registers *regs, VALUE regexp)
     return val;
 }
 
-static VALUE
-kcode_getter(ID _x, VALUE *_y)
-{
-    rb_warn("variable $KCODE is no longer effective");
-    return Qnil;
-}
-
-static void
-kcode_setter(VALUE val, ID id, VALUE *_)
-{
-    rb_warn("variable $KCODE is no longer effective; ignored");
-}
-
 static VALUE
 ignorecase_getter(ID _x, VALUE *_y)
 {
@@ -4062,8 +4049,6 @@ Init_Regexp(void)
     rb_gvar_ractor_local("$+");
 
     rb_define_virtual_variable("$=", ignorecase_getter, ignorecase_setter);
-    rb_define_virtual_variable("$KCODE", kcode_getter, kcode_setter);
-    rb_define_virtual_variable("$-K", kcode_getter, kcode_setter);
 
     rb_cRegexp = rb_define_class("Regexp", rb_cObject);
     rb_define_alloc_func(rb_cRegexp, rb_reg_s_alloc);
-- 
cgit v1.2.3