From 910989b287b96b1650adafb6956f555d769bf320 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 20 Jun 2003 14:52:45 +0000
Subject: tcltklib.c :   * Tk interpreter returns TAINTED strings.

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

(limited to 'ext/tk/lib')

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 464f7f179..c1550680c 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -847,13 +847,14 @@ module TkCore
     args.flatten!
     print "=> ", args.join(" ").inspect, "\n" if $DEBUG
     begin
-      res = INTERP._invoke(*args)
+      # res = INTERP._invoke(*args).taint
+      res = INTERP._invoke(*args)   # _invoke returns a TAITED string
     rescue NameError
       err = $!
       begin
         args.unshift "unknown"
-        #res = INTERP._invoke(*args)
-        res = INTERP._invoke(*args).taint
+        #res = INTERP._invoke(*args).taint 
+        res = INTERP._invoke(*args)   # _invoke returns a TAITED string
       rescue
 	fail unless /^invalid command/ =~ $!
 	fail err
-- 
cgit