summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-10-31 08:46:41 (GMT)
committervincentdarley <vincentdarley>2003-10-31 08:46:41 (GMT)
commit594ea92437e8a4065f0553a01de137852074177d (patch)
tree737009b65c6865c46009e9362f889f7417c1af63
parent8fe5b2fcac7044adea04de99718e6edecdc109b4 (diff)
downloadtcl-594ea92437e8a4065f0553a01de137852074177d.zip
tcl-594ea92437e8a4065f0553a01de137852074177d.tar.gz
tcl-594ea92437e8a4065f0553a01de137852074177d.tar.bz2
ensure translated path is freed
-rw-r--r--ChangeLog5
-rw-r--r--unix/tclUnixFile.c3
2 files changed, 7 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 5037c26..d092f14 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-31 Vince Darley <vincentdarley@users.sourceforge.net>
+
+ * unix/tclUnixFile.c: ensure translated path (required for
+ correct error messages) is freed in both code paths.
+
2003-10-23 Andreas Kupries <andreask@activestate.com>
* unix/tclUnixChan.c (Tcl_MakeFileChannel): Applied [Patch 813606]
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c
index fe9f067..af6b5fe 100644
--- a/unix/tclUnixFile.c
+++ b/unix/tclUnixFile.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixFile.c,v 1.32.2.1 2003/10/03 17:45:37 vincentdarley Exp $
+ * RCS: @(#) $Id: tclUnixFile.c,v 1.32.2.2 2003/10/31 08:46:41 vincentdarley Exp $
*/
#include "tclInt.h"
@@ -221,6 +221,7 @@ TclpMatchInDirectory(interp, resultPtr, pathPtr, pattern, types)
if (NativeMatchType(native, types)) {
Tcl_ListObjAppendElement(interp, resultPtr, pathPtr);
}
+ Tcl_DecrRefCount(fileNamePtr);
return TCL_OK;
} else {
DIR *d;