Fix sdr:tcl_parsed_plugins can't read "(CRYPTKEY)": no such variable

This commit is contained in:
Bill Fenner 2000-03-20 05:32:03 +00:00
parent b144d742c6
commit f6d9d3e93b
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=26837
2 changed files with 22 additions and 0 deletions

11
mbone/sdr/files/patch-ac Normal file
View file

@ -0,0 +1,11 @@
--- ../src/plugin2tcl.tcl.orig Sun Mar 19 20:33:42 2000
+++ ../src/plugin2tcl.tcl Sun Mar 19 20:35:39 2000
@@ -8,7 +8,7 @@
puts $file "set createrules \"$createrules\""
foreach ary {tooldata mediadata fmts protos protonames fmtnames mappings attrs attrnames attrvaluenames attrflags noattrflags noattrlist defattrlist withattrs macros macrokeys fmtlayers} {
foreach key [array names $ary] {
- puts $file "set [set ary]($key) \"[set [set ary]($key)]\""
+ puts $file [list set [set ary]($key) [set [set ary]($key)]]
}
}
close $file

11
net/sdr/files/patch-ac Normal file
View file

@ -0,0 +1,11 @@
--- ../src/plugin2tcl.tcl.orig Sun Mar 19 20:33:42 2000
+++ ../src/plugin2tcl.tcl Sun Mar 19 20:35:39 2000
@@ -8,7 +8,7 @@
puts $file "set createrules \"$createrules\""
foreach ary {tooldata mediadata fmts protos protonames fmtnames mappings attrs attrnames attrvaluenames attrflags noattrflags noattrlist defattrlist withattrs macros macrokeys fmtlayers} {
foreach key [array names $ary] {
- puts $file "set [set ary]($key) \"[set [set ary]($key)]\""
+ puts $file [list set [set ary]($key) [set [set ary]($key)]]
}
}
close $file