Tcl Source Code

Originally reported by @JulianNoble in the discussion in unrelated issue 596936dd2d

When you do a glob -dir $dir -tail on a dir ending in a slash - it can return /name instead of just name 

Then the file join fails to work as it takes the name as an absolute path and doesn't add the dir.

 #with trailing slash in path
 % set path {C:\Program Files\PowerShell\7}
 C:\Program Files\PowerShell\7
 % tcl::unsupported::representation $path
 value is a pure string with a refcount of 4, object pointer at 0x1ea036f3270, string representation "C:\Program Fi..."
 % append path \\
 C:\Program Files\PowerShell\7\
 % tcl::unsupported::representation $path
value is a utf32string with a refcount of 2, object pointer at 0x1ea036ef2e0, internal representation 0x1ea038c70b0:0x0, string representation "C:\Program Fi..."
 % glob -dir $path -tail pwsh.exe
 /pwsh.exe


 
 #without trailing slash 
 % set path {C:\Program Files\PowerShell\7}
 C:\Program Files\PowerShell\7
 % tcl::unsupported::representation $path
value is a pure string with a refcount of 5, object pointer at 0x1ea036f3270, string representation "C:\Program Fi..."
 % glob -dir $path -tail pwsh.exe
 pwsh.exe


Whether or not a trailing slash should strictly exist at the end of a path - I believe it to be fairly common on windows (some installers do it) and it should work.

Tcl8.5 on the other hand does it correctly:

% glob -dir "c:\\" -tail windows-version.txt
windows-version.txt

versus testing in 8.6, 8.7, 9.0
% glob -dir "c:\\" -tail windows-version.txt
/windows-version.txt