diff options
| author | vincentdarley <vincentdarley> | 2005-10-23 18:51:30 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2005-10-23 18:51:30 (GMT) |
| commit | 85989678787c55ed31dd47768c232e88501424af (patch) | |
| tree | aee2e79b42c94fd9b2e667b5687c9c7a02855e4c /generic/tclFileName.c | |
| parent | 2805d0901c017d0273089012097c326967cdd90d (diff) | |
| download | tcl-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/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 8 |
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; } |