From a8c74a6b57be8b7b14f51e605eb7db731a19f62e Mon Sep 17 00:00:00 2001
From: Andy Cedilnik <andy.cedilnik@kitware.com>
Date: Wed, 16 Feb 2005 16:03:21 -0500
Subject: [PATCH] BUG: On windows allow removing of files that are read-only

---
 Source/kwsys/SystemTools.cxx | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/Source/kwsys/SystemTools.cxx b/Source/kwsys/SystemTools.cxx
index 53f2a369b..5968bd6fc 100644
--- a/Source/kwsys/SystemTools.cxx
+++ b/Source/kwsys/SystemTools.cxx
@@ -1157,7 +1157,23 @@ kwsys_stl::string SystemTools::GetLastSystemError()
 
 bool SystemTools::RemoveFile(const char* source)
 {
-  return unlink(source) != 0 ? false : true;
+#ifdef _WIN32
+  mode_t mode;
+  if ( !SystemTools::GetPermissions(source, mode) )
+    {
+    return false;
+    }
+  /* Win32 unlink is stupid --- it fails if the file is read-only  */
+  SystemTools::SetPermissions(source, S_IWRITE);
+#endif
+  bool res = unlink(source) != 0 ? false : true;
+#ifdef _WIN32
+  if ( !res )
+    {
+    SystemTools::SetPermissions(source, mode);
+    }
+#endif
+  return res;
 }
 
 bool SystemTools::RemoveADirectory(const char* source)