Error report has typo variable name in Listener.tcl

There is another incorrect variable name error in Listener.tcl. It shows up
in the socket error when we try to bind a socket that is already in use.
ie: fire up on port 80 when tclhttpd is already using that port.
The following solves it:

/opt/wub $ svn diff
Index: Wub/Listener.tcl
===================================================================
--- Wub/Listener.tcl    (revision 2045)
+++ Wub/Listener.tcl    (working copy)
@@ -121,7 +121,7 @@

            Debug.listener {server: $cmd}
            if {[catch $cmd listener eo]} {
-               error "[dict get $args -host]:[dict get $args -port]
$listen\ncmd=$cmd"
+               error "[dict get $args -host]:[dict get $args -port]
$listener\ncmd=$cmd"
            }
            Debug.log {Listener $listener on [fconfigure $listener]}
        } error eo]} {
/

Original issue reported on code.google.com by pattho...@gmail.com on 16 Nov 2009 at 9:09

jdc8 / wub

Error report has typo variable name in Listener.tcl #12