diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-13 13:06:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-13 13:06:31 (GMT) |
| commit | 73230008aa88adaa6ed298cf046b902279920478 (patch) | |
| tree | af53162be96d78aebb3302888e21a19a8bac027e /win/tclWinPipe.c | |
| parent | 2be6ee536d794c609ad15b4504a7eb235bf7f330 (diff) | |
| parent | e5fd8b4eb2d091baf4f9985ec32a51ba6a5614a1 (diff) | |
| download | tcl-73230008aa88adaa6ed298cf046b902279920478.zip tcl-73230008aa88adaa6ed298cf046b902279920478.tar.gz tcl-73230008aa88adaa6ed298cf046b902279920478.tar.bz2 | |
Merge novemnovem_bighash
Diffstat (limited to 'win/tclWinPipe.c')
| -rw-r--r-- | win/tclWinPipe.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index aff8836..382addd 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -897,7 +897,7 @@ TclpGetPid( * * The complete Windows search path is searched to find the specified * executable. If an executable by the given name is not found, - * automatically tries appending ".com", ".exe", and ".bat" to the + * automatically tries appending standard extensions to the * executable name. * * Results: @@ -1292,7 +1292,7 @@ ApplicationType( Tcl_DString nameBuf, ds; const TCHAR *nativeName; TCHAR nativeFullPath[MAX_PATH]; - static const char extensions[][5] = {"", ".com", ".exe", ".bat"}; + static const char extensions[][5] = {"", ".com", ".exe", ".bat", ".cmd"}; /* * Look for the program as an external program. First try the name as it @@ -1337,7 +1337,8 @@ ApplicationType( Tcl_DStringFree(&ds); ext = strrchr(fullName, '.'); - if ((ext != NULL) && (strcasecmp(ext, ".bat") == 0)) { + if ((ext != NULL) && + (strcasecmp(ext, ".cmd") == 0 || strcasecmp(ext, ".bat") == 0)) { applType = APPL_DOS; break; } |