From cdd600c79b33458ca7ca7861563f1c6756e69ff6 Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Mon, 13 Jun 2005 08:31:59 +0000
Subject: correct fix to file mkdir

---
 ChangeLog         |  4 ++++
 generic/tclFCmd.c | 11 +++++++----
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ada83fd..e4b8150 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-06-13  Vince Darley  <vincentdarley@users.sourceforge.net>
+
+	* generic/tclFCmd.c: correct fix to file mkdir 2005-06-09, [Bug 1219176]
+
 2005-06-12  Donal K. Fellows  <dkf@users.sf.net>
 
 	* generic/tclCompCmds.c: Factor out some common idioms into named
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c
index 9ee530b..d5e7005 100644
--- a/generic/tclFCmd.c
+++ b/generic/tclFCmd.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: tclFCmd.c,v 1.33 2005/06/09 16:24:47 vincentdarley Exp $
+ * RCS: @(#) $Id: tclFCmd.c,v 1.34 2005/06/13 08:32:05 vincentdarley Exp $
  */
 
 #include "tclInt.h"
@@ -262,11 +262,14 @@ TclFileMakeDirsCmd(interp, objc, objv)
 		    goto done;
 		}
 	    } else if (errno != ENOENT) {
+		/* 
+		 * If Tcl_FSStat() failed and the error is anything
+		 * other than non-existence of the target, throw the
+		 * error.
+		 */
 		errfile = target;
 		goto done;
-	    }
-	    
-	    if (Tcl_FSCreateDirectory(target) != TCL_OK) {
+	    } else if (Tcl_FSCreateDirectory(target) != TCL_OK) {
 		/* 
 		 * Create might have failed because of being in a race
 		 * condition with another process trying to create the
-- 
cgit v0.12