chiark / gitweb /
get globals right for permanently open serchan
authorian <ian>
Mon, 14 Jul 2008 21:19:38 +0000 (21:19 +0000)
committerian <ian>
Mon, 14 Jul 2008 21:19:38 +0000 (21:19 +0000)
hostside/multiplex

index 4284bc7c6ccbf8e4fa4c589c19382a88599bfd67..a15dcda3d05503b5ac1d1e049146bab7c1847a0f 100755 (executable)
@@ -273,7 +273,7 @@ proc global/!realtime {conn args} {
 }
 
 proc realtime-retry-reset {} {
-    global realtime_retry
+    global realtime_retry serchan
     if {![info exists realtime_retry]} return
     if {![llength $realtime_retry]} return
     manyset $realtime_retry timeoutid
@@ -291,7 +291,7 @@ proc realtime-retry-check {} {
 }
 
 proc realtime-retry-realtime-failed {} {
-    global realtime_retry dev_railway serchan
+    global realtime_retry serchan
     if {![info exists realtime_retry]} return
     if {[llength $realtime_retry]} { error "huh? $realtime_retry" }
     fileevent $serchan readable realtime-retry-serchan-readable
@@ -813,6 +813,7 @@ proc binding {addr blist} {
 
 proc startup {} {
     global queueing executing testmode realtime port urandom serchan
+    global dev_railway
     catch { close $master }; catch { unset master }
 
     setting testmode 0 {[01]}