summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2008-11-23 18:05:30 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2008-11-23 18:05:30 (GMT)
commit974a49e4500d766dfd050097ec752d5b712245ec (patch)
tree7548d8ad18dbd08573d0754cfe5dd117c70aee81
parent718ed7c6446b39172357c0d70f17e914f5a4c1d4 (diff)
downloadtcl-974a49e4500d766dfd050097ec752d5b712245ec.zip
tcl-974a49e4500d766dfd050097ec752d5b712245ec.tar.gz
tcl-974a49e4500d766dfd050097ec752d5b712245ec.tar.bz2
Fix IsChannelExisting name comparison [Bug 2333466]
-rw-r--r--generic/tclIO.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index d2017e8..4547a36 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIO.c,v 1.147 2008/11/06 21:47:36 nijtmans Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.148 2008/11/23 18:05:30 ferrieux Exp $
*/
#include "tclInt.h"
@@ -9808,7 +9808,7 @@ Tcl_IsChannelExisting(
}
if ((*chanName == *name) &&
- (memcmp(name, chanName, (size_t) chanNameLen) == 0)) {
+ (memcmp(name, chanName, (size_t) chanNameLen + 1) == 0)) {
return 1;
}
}