From: Ian Jackson <ian@davenant.greenend.org.uk>
Date: Fri, 31 Dec 2010 15:44:03 +0000 (+0000)
Subject: hostside/multiplex: do not crash when denied callers connect (!)
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=dd01ba9a7704b3ee973c20506253b76b373e2d55;p=trains.git

hostside/multiplex: do not crash when denied callers connect (!)
---

diff --git a/hostside/multiplex b/hostside/multiplex
index 8ee5832..a0271e3 100755
--- a/hostside/multiplex
+++ b/hostside/multiplex
@@ -759,7 +759,7 @@ proc connected {conn} {
     set conns($conn) 1
     set perm [find-permission $c(ipaddr)]
     switch -exact $perm {
-	deny { finally $conn =denied; return }
+	deny { kill-conn $conn =denied; return }
 	allow { set c(super) 0 }
 	super { set c(super) 1 }
 	default { error "$perm ?" }