0
0
mirror of https://gitlab.com/cznic/sqlite.git synced 2025-06-11 23:41:48 +00:00

cleanup get working dir on windows: "echo /c %CD%" -> "/c cd "

This commit is contained in:
Jason DeBettencourt
2021-01-18 09:59:38 -05:00
parent 0a7471a043
commit c1357b87cd

@ -50,7 +50,7 @@ for {set ii 0} {$ii < 10} {incr ii} {
proc get_pwd {} {
if {$::tcl_platform(platform) eq "windows"} {
return [string map [list \\ /] \
[string trim [exec -- $::env(ComSpec) /c echo %CD%]]]
[string trim [exec -- $::env(ComSpec) /c cd ]]]
} else {
return [pwd]
}