From: patthoyts <patthoyts>
Date: Tue, 10 Apr 2007 23:49:38 +0000 (+0000)
Subject: Fixed dozy error on unix branch
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=8bae885a18498bead9e371225d03029d6ab4638f;p=tcludp

Fixed dozy error on unix branch
---

diff --git a/demos/multicast.tcl b/demos/multicast.tcl
index daec247..812a480 100644
--- 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 3b2cb66..3f19787 100644
--- 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;