Index: generic/tclFileName.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclFileName.c,v
retrieving revision 1.55
diff -u -r1.55 tclFileName.c
--- generic/tclFileName.c 8 May 2004 15:51:41 -0000 1.55
+++ generic/tclFileName.c 4 Jul 2004 18:21:30 -0000
@@ -754,10 +754,8 @@
while (p[1] == '/') {
p++;
}
- if (p[1] != '\0') {
- if (needsSep) {
- *dest++ = '/';
- }
+ if (needsSep) {
+ *dest++ = '/';
}
} else {
*dest++ = *p;
@@ -792,7 +790,7 @@
while ((p[1] == '/') || (p[1] == '\\')) {
p++;
}
- if ((p[1] != '\0') && needsSep) {
+ if (needsSep) {
*dest++ = '/';
}
} else {
