summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-07-08 12:38:35 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-07-08 12:38:35 (GMT)
commit8f0cfce66a4fd94536faac0595c3d7d7c7844d64 (patch)
treee32872c2f8c2b84ab90793ad0d03693d1fb32217 /win
parente11daf6fb666f377464fdedddde9126ba31658d7 (diff)
downloadtcl-8f0cfce66a4fd94536faac0595c3d7d7c7844d64.zip
tcl-8f0cfce66a4fd94536faac0595c3d7d7c7844d64.tar.gz
tcl-8f0cfce66a4fd94536faac0595c3d7d7c7844d64.tar.bz2
(cherry-pick): Bugfix [5d7ea04580]. Treat .cmd and .ps1 files are executable on Windows.
Diffstat (limited to 'win')
-rwxr-xr-xwin/tclWinFile.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 41de4a8..e671058 100755
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -1783,7 +1783,7 @@ NativeAccess(
* NativeIsExec --
*
* Determines if a path is executable. On windows this is simply defined
- * by whether the path ends in any of ".exe", ".com", or ".bat"
+ * by whether the path ends in a standard executable extension.
*
* Results:
* 1 = executable, 0 = not.
@@ -1834,6 +1834,8 @@ NativeIsExec(
if ((strcasecmp(p, "exe") == 0)
|| (strcasecmp(p, "com") == 0)
+ || (strcasecmp(p, "cmd") == 0)
+ || (strcasecmp(p, "ps1") == 0)
|| (strcasecmp(p, "bat") == 0)) {
/*
* File that ends with .exe, .com, or .bat is executable.