From f6d9d3e93b87127b655ca085aa1969965741c5c1 Mon Sep 17 00:00:00 2001
From: Bill Fenner <fenner@FreeBSD.org>
Date: Mon, 20 Mar 2000 05:32:03 +0000
Subject: Fix sdr:tcl_parsed_plugins can't read "(CRYPTKEY)": no such variable

---
 mbone/sdr/files/patch-ac | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 mbone/sdr/files/patch-ac

(limited to 'mbone')

diff --git a/mbone/sdr/files/patch-ac b/mbone/sdr/files/patch-ac
new file mode 100644
index 000000000000..8499cceb284b
--- /dev/null
+++ b/mbone/sdr/files/patch-ac
@@ -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
-- 
cgit