diff options
Diffstat (limited to 'test/examples/x.tcl')
| -rw-r--r-- | test/examples/x.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/examples/x.tcl b/test/examples/x.tcl index 7553aca2d..6a4b13dbe 100644 --- a/test/examples/x.tcl +++ b/test/examples/x.tcl @@ -6,3 +6,8 @@ proc Echo_Server {port} { set s [socket -server EchoAccept $port] vwait forever } + +# Bug #1947 + +$s($i,"n") +set n $showArray($i,"neighbor") |