Fix sdr:tcl_parsed_plugins can't read "(CRYPTKEY)": no such variable
This commit is contained in:
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
11
mbone/sdr/files/patch-ac
Normal 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
11
net/sdr/files/patch-ac
Normal 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
|
Loading…
Reference in a new issue