summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2005-10-23 18:51:30 (GMT)
committervincentdarley <vincentdarley>2005-10-23 18:51:30 (GMT)
commit85989678787c55ed31dd47768c232e88501424af (patch)
treeaee2e79b42c94fd9b2e667b5687c9c7a02855e4c /generic
parent2805d0901c017d0273089012097c326967cdd90d (diff)
downloadtcl-85989678787c55ed31dd47768c232e88501424af.zip
tcl-85989678787c55ed31dd47768c232e88501424af.tar.gz
tcl-85989678787c55ed31dd47768c232e88501424af.tar.bz2
fix to glob memory leak and file stat ino/nlink on windows
Diffstat (limited to 'generic')
-rw-r--r--generic/tclFileName.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index 1d6c974..46462ff 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.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: tclFileName.c,v 1.72 2005/10/18 14:42:59 dkf Exp $
+ * RCS: @(#) $Id: tclFileName.c,v 1.73 2005/10/23 18:51:31 vincentdarley Exp $
*/
#include "tclInt.h"
@@ -1875,6 +1875,9 @@ TclGlob(
result = TCL_OK;
}
TclDecrRefCount(savedResultObj);
+ if (pathPrefix != NULL) {
+ Tcl_DecrRefCount(pathPrefix);
+ }
return result;
}
@@ -1951,6 +1954,9 @@ TclGlob(
}
TclDecrRefCount(savedResultObj);
TclDecrRefCount(filenamesObj);
+ if (pathPrefix != NULL) {
+ Tcl_DecrRefCount(pathPrefix);
+ }
return result;
}