Updating client and server scripts for Tcl 8.5.

eviltwinskippy · Sep 5, 2010 · 7f71cf2 · 7f71cf2
1 parent db7ae5c
commit 7f71cf2
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 7 deletions.
diff --git a/example/client.tcl b/example/client.tcl
@@ -1,8 +1,5 @@
 # Example client using the bonjour package.
-
-lappend auto_path .
-
-package require Tcl 8.4
+package require Tcl 8.5
 package require bonjour
 
 # Called when a service is resolved (details are retrieved).

diff --git a/example/server.tcl b/example/server.tcl
@@ -1,11 +1,12 @@
 # Example bonjour server
-lappend auto_path .
-
-package require Tcl 8.4
+package require Tcl 8.5
 package require bonjour
 
 # Register myservice with bonjour.
 ::bonjour::register _myservice._tcp 30000 {key1 value1 key2 value2}
 
+# Shutdown after 60 seconds
+after 6000 exit
+
 # Enter the event loop.
 vwait forever