From 1b26df6269c0299c3074575d0d8b978dc7e3c96a Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 1 Feb 2000 11:49:24 +0000
Subject: 	* generic/tclFileName.c (Tcl_JoinPath): improved support for
 special 	QNX node id prefixes in pathnames [Bug: 4053]

---
 generic/tclFileName.c | 9 ++++++---
 1 file 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 == '/') {
-- 
cgit v0.12