From f4af0965449025714b1cb4d66f771290f1ce9efa Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Mon, 3 Nov 2003 12:48:30 +0000
Subject: free path when no longer needed

---
 unix/tclUnixFile.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c
index d68bebd..f268ad5 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.33 2003/10/13 16:48:07 vincentdarley Exp $
+ * RCS: @(#) $Id: tclUnixFile.c,v 1.34 2003/11/03 12:48:30 vincentdarley Exp $
  */
 
 #include "tclInt.h"
@@ -267,6 +267,7 @@ TclpMatchInDirectory(interp, resultPtr, pathPtr, pattern, types)
 		|| !S_ISDIR(statBuf.st_mode)) {
 	    Tcl_DStringFree(&dsOrig);
 	    Tcl_DStringFree(&ds);
+	    Tcl_DecrRefCount(fileNamePtr);
 	    return TCL_OK;
 	}
 
-- 
cgit v0.12