From e5af7b833f3d6ca47fb0f610f9e01ed6b07a02e7 Mon Sep 17 00:00:00 2001 From: ocean Date: Sun, 6 Nov 2005 12:48:43 +0000 Subject: * ext/tk/stubs.c (ruby_tcl_create_ip_and_stubs_init): should touch interpreter after initialization is done. [ruby-dev:27638] git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@9507 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 5 +++++ ext/tk/stubs.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index b00bbac01..0a39754fa 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Sun Nov 6 21:46:59 2005 Hirokazu Yamamoto + + * ext/tk/stubs.c (ruby_tcl_create_ip_and_stubs_init): should touch + interpreter after initialization is done. [ruby-dev:27638] + Sun Nov 6 20:13:27 2005 Nobuyoshi Nakada * file.c (rb_file_s_readlink): readlink(2) on AIX fails with ERANGE if diff --git a/ext/tk/stubs.c b/ext/tk/stubs.c index 050333cf6..3fb3e5f2f 100644 --- a/ext/tk/stubs.c +++ b/ext/tk/stubs.c @@ -237,14 +237,14 @@ ruby_tcl_create_ip_and_stubs_init(st) return (Tcl_Interp*)NULL; } - _nativethread_consistency_check(tcl_ip); - if (!Tcl_InitStubs(tcl_ip, "8.1", 0)) { if (st) *st = FAIL_Tcl_InitStubs; (*p_Tcl_DeleteInterp)(tcl_ip); return (Tcl_Interp*)NULL; } + _nativethread_consistency_check(tcl_ip); + return tcl_ip; } } -- cgit