blob: 788a113f07c488843517a1ab7a9fbdfba0247327 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
--- wsurf-orig.tcl 2014-03-16 03:00:12.607411989 +0100
+++ src/wsurf/wsurf.tcl 2014-03-16 02:49:27.807185395 +0100
@@ -3121,7 +3121,12 @@
foreach var [list inDev outDev PrintCmd PrintPVCmd linkFile tmpDir \
defRate defEncoding defChannels recordLimit showLevel] {
+ if {[info exists Info(Prefs,$var)]} {
set Info(Prefs,t,$var) $Info(Prefs,$var)
+ } else {
+ puts "Missing Info(Prefs,$var)"
+ set Info(Prefs,t,$var) {}
+ }
}
if {$Info(Prefs,linkFile)} {
|