diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2008-11-23 18:05:30 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2008-11-23 18:05:30 (GMT) |
| commit | 974a49e4500d766dfd050097ec752d5b712245ec (patch) | |
| tree | 7548d8ad18dbd08573d0754cfe5dd117c70aee81 | |
| parent | 718ed7c6446b39172357c0d70f17e914f5a4c1d4 (diff) | |
| download | tcl-974a49e4500d766dfd050097ec752d5b712245ec.zip tcl-974a49e4500d766dfd050097ec752d5b712245ec.tar.gz tcl-974a49e4500d766dfd050097ec752d5b712245ec.tar.bz2 | |
Fix IsChannelExisting name comparison [Bug 2333466]
| -rw-r--r-- | generic/tclIO.c | 4 |
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; } } |