diff options
| author | vasiljevic <zv@archiware.com> | 2003-12-17 09:24:43 (GMT) |
|---|---|---|
| committer | vasiljevic <zv@archiware.com> | 2003-12-17 09:24:43 (GMT) |
| commit | b3de138399380858c1de691bee46c40a5b5a3d1a (patch) | |
| tree | 0c90c7f154439a1d1afb4edeb7f07185edbd66d4 /generic/tclIOUtil.c | |
| parent | e3723df8f92568b35a3c243830b1ccbfd63fe977 (diff) | |
| download | tcl-b3de138399380858c1de691bee46c40a5b5a3d1a.zip tcl-b3de138399380858c1de691bee46c40a5b5a3d1a.tar.gz tcl-b3de138399380858c1de691bee46c40a5b5a3d1a.tar.bz2 | |
Fixed 2 memory (object) leaks; Tcl Bug #839519
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 083152e..fb5448e 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -17,7 +17,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOUtil.c,v 1.89 2003/11/07 11:36:47 vincentdarley Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.90 2003/12/17 09:24:43 vasiljevic Exp $ */ #include "tclInt.h" @@ -2334,7 +2334,8 @@ Tcl_FSGetCwd(interp) * we'll always be in the 'else' branch below which * is simpler. */ - FsUpdateCwd(norm); + FsUpdateCwd(norm); + Tcl_DecrRefCount(norm); } Tcl_DecrRefCount(retVal); } @@ -2380,6 +2381,7 @@ Tcl_FSGetCwd(interp) Tcl_DecrRefCount(norm); } else { FsUpdateCwd(norm); + Tcl_DecrRefCount(norm); } Tcl_DecrRefCount(retVal); } else { |