Fixed dozy error on unix branch

diff --git a/demos/multicast.tcl b/demos/multicast.tcl
index daec2476085df5569d367e0fad77287f08f4c96b..812a4809356408b2adff9cc1d1b5db3fb0409cd6 100644 (file)
--- a/demos/multicast.tcl
+++ b/demos/multicast.tcl
@@ -32,8 +32,8 @@ set port   7771
 # Create a listening socket and configure for sending too.
 set s [udp_open $port]
 fconfigure $s -buffering none -blocking 0
-fconfigure $s -mcastadd $group1 -remote [list $group1 $port]
 fconfigure $s -mcastadd $group2 -remote [list $group2 $port]
+fconfigure $s -mcastadd $group1 -remote [list $group1 $port]
 fileevent $s readable [list udpEvent $s]
 
 # Announce our presence and run

diff --git a/generic/udp_tcl.c b/generic/udp_tcl.c
index 3b2cb66a561229082919a0e8bac3dad0c484ddbb..3f1978715b0ce06879a27d6978271068ef7276ae 100644 (file)
--- a/generic/udp_tcl.c
+++ b/generic/udp_tcl.c
@@ -1487,7 +1487,7 @@ ErrorToObj(const char * prefix)
     LocalFree(sMsg);
 #elif defined(HAVE_STRERROR)
     extern int errno;
-    Tcl_Obj *errObj = Tcl_NewStringObj(prefix, -1);
+    errObj = Tcl_NewStringObj(prefix, -1);
     Tcl_AppendStringsToObj(errObj, ": ", strerror(errno), NULL);
 #endif
     return errObj;