summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-02-01 11:49:24 (GMT)
committerhobbs <hobbs>2000-02-01 11:49:24 (GMT)
commit1b26df6269c0299c3074575d0d8b978dc7e3c96a (patch)
treeeb866dd73657622572d514bd3123112e63aea7bb
parent557e06ed57689d519ff8ba53af717b9e1f7f2f80 (diff)
downloadtcl-1b26df6269c0299c3074575d0d8b978dc7e3c96a.zip
tcl-1b26df6269c0299c3074575d0d8b978dc7e3c96a.tar.gz
tcl-1b26df6269c0299c3074575d0d8b978dc7e3c96a.tar.bz2
* generic/tclFileName.c (Tcl_JoinPath): improved support for special
QNX node id prefixes in pathnames [Bug: 4053]
-rw-r--r--generic/tclFileName.c9
1 files changed, 6 insertions, 3 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index f9f1a7c..a609fb9 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclFileName.c,v 1.10 2000/01/26 03:37:41 hobbs Exp $
+ * RCS: @(#) $Id: tclFileName.c,v 1.11 2000/02/01 11:49:24 hobbs Exp $
*/
#include "tclInt.h"
@@ -766,9 +766,12 @@ Tcl_JoinPath(argc, argv, resultPtr)
/*
* Check for QNX //<node id> prefix
*/
- if (*p && (strlen(p) > 3) &&
- (p[0] == '/') && (p[1] == '/') && atoi(&p[2])) {
+ if (*p && (strlen(p) > 3) && (p[0] == '/') && (p[1] == '/')
+ && isdigit(UCHAR(p[2]))) { /* INTL: digit */
p += 3;
+ while (isdigit(UCHAR(*p))) { /* INTL: digit */
+ ++p;
+ }
}
#endif
if (*p == '/') {