From b4337be29ff0f6e9a461791c30c2ae7c4d4dbe5a Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 14 Oct 2003 18:54:21 +0000
Subject: [PATCH] ext/tk/lib/tk.rb:  * fixed trouble on auto-load Tcl commands
 (enbug on the last commit).

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4763 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk.rb | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 47148e43ce..fcf9d11593 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -1155,7 +1155,6 @@ module Tk
     end
   end
 
-
   def root
     TkRoot.new
   end
@@ -2245,8 +2244,14 @@ module Tk
       auto_path = Tk::LIBRARY
     end
   end
+
   AUTO_PATH = TkVarAccess.new('auto_path', auto_path)
-  AUTO_OLDPATH = TkVarAccess.new('auto_oldpath', auto_path)
+
+=begin
+  AUTO_OLDPATH = tk_split_simplelist(INTERP._invoke('set', 'auto_oldpath'))
+  AUTO_OLDPATH.each{|s| s.freeze}
+  AUTO_OLDPATH.freeze
+=end
 
   TCL_PACKAGE_PATH = TkVarAccess.new('tcl_pkgPath')
   PACKAGE_PATH = TCL_PACKAGE_PATH