Artifact
7840af12b7e6c85d8a0de0df2af60e4e9bb5bdb5:
Attachment "tclFCmd.c.diff" to
ticket [1219176fff]
added by
tngd
2005-06-12 21:25:10.
Index: tclFCmd.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclFCmd.c,v
retrieving revision 1.33
diff -u -r1.33 tclFCmd.c
--- tclFCmd.c 9 Jun 2005 16:24:47 -0000 1.33
+++ tclFCmd.c 12 Jun 2005 14:14:34 -0000
@@ -264,9 +264,7 @@
} else if (errno != ENOENT) {
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
