diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-07 07:48:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-07 07:48:53 (GMT) |
| commit | 72476cdd50825cebaea367188325e69ea5a8ff40 (patch) | |
| tree | 52448af5d0bd3975ccd1af4b672ca33a90507530 /win | |
| parent | 7519883347a28417d8c6d8a3de4460386f66ad29 (diff) | |
| parent | 0aa3b5113db3c6c750aa4bbcfdb657dec48c0de1 (diff) | |
| download | tcl-72476cdd50825cebaea367188325e69ea5a8ff40.zip tcl-72476cdd50825cebaea367188325e69ea5a8ff40.tar.gz tcl-72476cdd50825cebaea367188325e69ea5a8ff40.tar.bz2 | |
Merge core-8-6-branch:
New tests to demo the remaining flaw in ensemble dispatch revisions. Itcl 4 also demonstrated these
[bd7f17bce8] Revise ensemble dispatch to call TclNREvalObjv() which supports the TCL_EVAL_INVOKE
Simplify all the Tcl_NRPostProc declarations
Create and use a utility Tcl_NRPostProc when decr ref count of values is all that is needed
Bugfix [5d7ea04580]. Treat .cmd and .ps1 files are executable on Windows
Diffstat (limited to 'win')
| -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; } |