dev-tcltk/tclx/files/tclx-8.3-varinit.patch


1
2
3
4
5
6
7
8
9
10
11
12

--- tclx8.3/tcl/generic/tclXdup.c.varinit	Wed Aug  8 00:12:11 2001
+++ tclx8.3/tcl/generic/tclXdup.c	Wed Aug  8 00:12:30 2001
@@ -202,7 +202,7 @@
 {
     Tcl_Channel newChannel;
     int bindFnum, fnum;
-    char *srcChannelId, *targetChannelId;
+    char *srcChannelId = NULL, *targetChannelId;
 
     if ((objc < 2) || (objc > 3)) {
         return TclX_WrongArgs (interp, objv [0],