mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-15 23:50:44 +00:00
12 lines
544 B
Plaintext
12 lines
544 B
Plaintext
|
--- ../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
|