diff options
author | ashok <ashok> | 2016-07-07 06:30:58 (GMT) |
---|---|---|
committer | ashok <ashok> | 2016-07-07 06:30:58 (GMT) |
commit | 85d1666247031e3e951f4817797a6c3d205ed388 (patch) | |
tree | 6c02f8a6a858f357847f980c4f81293d9de187fb /win/tclWinFile.c | |
parent | bf0a1dc6c572e9b49cf0c55903f32caa66b00772 (diff) | |
download | tcl-85d1666247031e3e951f4817797a6c3d205ed388.zip tcl-85d1666247031e3e951f4817797a6c3d205ed388.tar.gz tcl-85d1666247031e3e951f4817797a6c3d205ed388.tar.bz2 |
Bugfix [5d7ea04580]. Treat .cmd and .ps1 files are executable on Windows.
Diffstat (limited to 'win/tclWinFile.c')
-rwxr-xr-x | win/tclWinFile.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 25c6ea4..4b0b884 100755 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -1769,7 +1769,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. @@ -1793,6 +1793,8 @@ NativeIsExec( if ((_tcsicmp(path+len-3, TEXT("exe")) == 0) || (_tcsicmp(path+len-3, TEXT("com")) == 0) + || (_tcsicmp(path+len-3, TEXT("cmd")) == 0) + || (_tcsicmp(path+len-3, TEXT("ps1")) == 0) || (_tcsicmp(path+len-3, TEXT("bat")) == 0)) { return 1; } |