summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans@users.sourceforge.net <jan.nijtmans>2014-10-31 10:57:25 (GMT)
committernijtmans@users.sourceforge.net <jan.nijtmans>2014-10-31 10:57:25 (GMT)
commit634a1f7ff81fce7a08397e5208e657affaf2b370 (patch)
treed2a0ef44651690aaaaed1e88c3953ccf43ef88b7
parent9acf0a19f98228ab108f19329951e36184a89bb4 (diff)
downloadtcl-634a1f7ff81fce7a08397e5208e657affaf2b370.zip
tcl-634a1f7ff81fce7a08397e5208e657affaf2b370.tar.gz
tcl-634a1f7ff81fce7a08397e5208e657affaf2b370.tar.bz2
Extend WinIsReserved() to recognize COM[5-9]: as valid com ports as well.
-rw-r--r--win/tclWinFile.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 163050e..7487022 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -1225,9 +1225,9 @@ WinIsReserved(
if ((path[0] == 'c' || path[0] == 'C')
&& (path[1] == 'o' || path[1] == 'O')) {
if ((path[2] == 'm' || path[2] == 'M')
- && path[3] >= '1' && path[3] <= '4') {
+ && path[3] >= '1' && path[3] <= '9') {
/*
- * May have match for 'com[1-4]:?', which is a serial port.
+ * May have match for 'com[1-9]:?', which is a serial port.
*/
if (path[4] == '\0') {