summaryrefslogtreecommitdiffstats
path: root/win/tclWinFCmd.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-03-26 14:34:56 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-03-26 14:34:56 (GMT)
commit07ba2fc47f5d9c888ccb11ca3666f215159b5f45 (patch)
tree0e6cfb17fc9375d1986157c9b4d1f8887eccf884 /win/tclWinFCmd.c
parent3b6523dd1f6ce2e08932508cf276ca55d04872e6 (diff)
downloadtcl-07ba2fc47f5d9c888ccb11ca3666f215159b5f45.zip
tcl-07ba2fc47f5d9c888ccb11ca3666f215159b5f45.tar.gz
tcl-07ba2fc47f5d9c888ccb11ca3666f215159b5f45.tar.bz2
Only write back file attributes if any of them really changed.rfe_b42b208ba4
Diffstat (limited to 'win/tclWinFCmd.c')
-rw-r--r--win/tclWinFCmd.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c
index 2700cb3..f14d9ff 100644
--- a/win/tclWinFCmd.c
+++ b/win/tclWinFCmd.c
@@ -1825,12 +1825,12 @@ SetWinFileAttributes(
Tcl_Obj *fileName, /* The name of the file. */
Tcl_Obj *attributePtr) /* The new value of the attribute. */
{
- DWORD fileAttributes;
+ DWORD fileAttributes, old;
int yesNo, result;
const TCHAR *nativeName;
nativeName = Tcl_FSGetNativePath(fileName);
- fileAttributes = GetFileAttributes(nativeName);
+ fileAttributes = old = GetFileAttributes(nativeName);
if (fileAttributes == 0xffffffff) {
StatError(interp, fileName);
@@ -1848,7 +1848,8 @@ SetWinFileAttributes(
fileAttributes &= ~(attributeArray[objIndex]);
}
- if (!SetFileAttributes(nativeName, fileAttributes)) {
+ if ((fileAttributes != old)
+ && !SetFileAttributes(nativeName, fileAttributes)) {
StatError(interp, fileName);
return TCL_ERROR;
}