summaryrefslogtreecommitdiffstats
path: root/unix
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 /unix
parent8fe5b2fcac7044adea04de99718e6edecdc109b4 (diff)
downloadtcl-594ea92437e8a4065f0553a01de137852074177d.zip
tcl-594ea92437e8a4065f0553a01de137852074177d.tar.gz
tcl-594ea92437e8a4065f0553a01de137852074177d.tar.bz2
ensure translated path is freed
Diffstat (limited to 'unix')
-rw-r--r--unix/tclUnixFile.c3
1 files changed, 2 insertions, 1 deletions
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;