diff options
-rw-r--r-- | internal.h | 1 | ||||
-rw-r--r-- | variable.c | 16 |
2 files changed, 17 insertions, 0 deletions
diff --git a/internal.h b/internal.h index f9bc693e0f..bf3880e695 100644 --- a/internal.h +++ b/internal.h @@ -1498,6 +1498,7 @@ VALUE rb_search_class_path(VALUE); VALUE rb_attr_delete(VALUE, ID); VALUE rb_ivar_lookup(VALUE obj, ID id, VALUE undef); void rb_autoload_str(VALUE mod, ID id, VALUE file); +void rb_deprecate_constant(VALUE mod, const char *name); /* version.c */ extern const char ruby_engine[]; diff --git a/variable.c b/variable.c index 2465212ab9..e9245050d3 100644 --- a/variable.c +++ b/variable.c @@ -2732,6 +2732,22 @@ set_const_visibility(VALUE mod, int argc, const VALUE *argv, rb_clear_constant_cache(); } +void +rb_deprecate_constant(VALUE mod, const char *name) +{ + rb_const_entry_t *ce; + ID id; + long len = strlen(name); + + rb_frozen_class_p(mod); + if (!(id = rb_check_id_cstr(name, len, NULL)) || + !(ce = rb_const_lookup(mod, id))) { + rb_name_err_raise("constant %2$s::%1$s not defined", + mod, rb_fstring_new(name, len)); + } + ce->flag |= CONST_DEPRECATED; +} + /* * call-seq: * mod.private_constant(symbol, ...) => mod |