diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-12 19:30:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-12 19:30:00 (GMT) |
| commit | 9b45aaa5b04468a95445c052fb62b42f081960b3 (patch) | |
| tree | 48463f1ee46b845f9328773b5ee8984c5592617a /generic/tclFileName.c | |
| parent | 945b10776dd8549b1f2371b406bea48df0e987d8 (diff) | |
| parent | 9b285dde85a6b7f41dd63cadb8c32517e3b1d1dd (diff) | |
| download | tcl-9b45aaa5b04468a95445c052fb62b42f081960b3.zip tcl-9b45aaa5b04468a95445c052fb62b42f081960b3.tar.gz tcl-9b45aaa5b04468a95445c052fb62b42f081960b3.tar.bz2 | |
TIP #430 implementation
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 15fcde7..015cfc3 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1881,7 +1881,7 @@ TclGlob( separators = "/\\"; } else if (tclPlatform == TCL_PLATFORM_UNIX) { - if (pathPrefix == NULL && tail[0] == '/') { + if (pathPrefix == NULL && tail[0] == '/' && tail[1] != '/') { pathPrefix = Tcl_NewStringObj(tail, 1); tail++; Tcl_IncrRefCount(pathPrefix); |