diff options
| -rw-r--r-- | ext/tk/tcltklib.c | 7 | ||||
| -rw-r--r-- | version.h | 2 |
2 files changed, 3 insertions, 6 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index bad72b4f7f..ff1f7640bd 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -4364,12 +4364,11 @@ delete_slaves(ip) /* finalize operation */ -static VALUE +static void lib_mark_at_exit(self) VALUE self; { at_exit = 1; - return Qnil; } static int @@ -7995,8 +7994,6 @@ Init_tcltklib() /* --------------------------------------------------------------- */ - rb_define_module_function(lib, "_mark_at_exit", lib_mark_at_exit, 0); - rb_define_module_function(lib, "mainloop", lib_mainloop, -1); rb_define_module_function(lib, "mainloop_thread?", lib_evloop_thread_p, 0); @@ -8133,7 +8130,7 @@ Init_tcltklib() /* --------------------------------------------------------------- */ - rb_eval_string("at_exit{ TclTkLib._mark_at_exit }"); + rb_set_end_proc(lib_mark_at_exit, 0); /* --------------------------------------------------------------- */ @@ -2,7 +2,7 @@ #define RUBY_RELEASE_DATE "2007-09-07" #define RUBY_VERSION_CODE 185 #define RUBY_RELEASE_CODE 20070907 -#define RUBY_PATCHLEVEL 100 +#define RUBY_PATCHLEVEL 101 #define RUBY_VERSION_MAJOR 1 #define RUBY_VERSION_MINOR 8 |