* ext/tk/stubs.c (ruby_tcl_create_ip_and_stubs_init): should touch

interpreter after initialization is done. [ruby-dev:27638]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9507 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,8 @@
+Sun Nov  6 21:43:22 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
+
+	* 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  <nobu@ruby-lang.org>
 
 	* file.c (rb_file_s_readlink): readlink(2) on AIX fails with ERANGE if

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;
     }
 }