From: Lars Hellstrom <lars_h@users.sourceforge.net>
Date: Fri, 27 Nov 2009 01:10:30 +0000 (+0000)
Subject: Fixed quoting bugs when saving to file.
X-Git-Tag: v2.6~11
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=d10e87fc7a24c3410a112f228b87c944147454aa;p=sockspy

Fixed quoting bugs when saving to file.

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
---

diff --git a/bin/sockspy.tcl b/bin/sockspy.tcl
index 2abc6e2..1833b15 100644
--- a/bin/sockspy.tcl
+++ b/bin/sockspy.tcl
@@ -1165,7 +1165,7 @@ proc stateRestore {} {
     
     # complain only if it exists and we fail to read it successsfully
     if {[file exists $stateFile]} {
-	uplevel #0 source $stateFile
+	uplevel #0 [list source $stateFile]
     }
     
     set state(stateFile) $stateFile
@@ -1227,7 +1227,7 @@ proc stateSaveReal {} {
     
     puts $sf ""
     foreach v $::saveList {
-	puts $sf "set $v \"[string map {[ \\[ \\ \\\\} [set $v]]\""
+	puts $sf [list set $v [set $v]]
     }
     close $sf
 }