From: ian <ian>
Date: Mon, 14 Jul 2008 21:19:38 +0000 (+0000)
Subject: get globals right for permanently open serchan
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=c449d85fbc3aa8492905fee90b9b7854941564c9;p=trains.git

get globals right for permanently open serchan
---

diff --git a/hostside/multiplex b/hostside/multiplex
index 4284bc7..a15dcda 100755
--- a/hostside/multiplex
+++ b/hostside/multiplex
@@ -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]}