From 84c2dc95de2fd6b41b374b1a2659707377929cff Mon Sep 17 00:00:00 2001
From: ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
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: svn+ssh://ci.ruby-lang.org/ruby/trunk@9507 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/stubs.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ext/tk/stubs.c')

diff --git a/ext/tk/stubs.c b/ext/tk/stubs.c
index 050333cf63..3fb3e5f2f3 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 v1.2.3