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:
2
testdata/tcl/crash5.test
vendored
2
testdata/tcl/crash5.test
vendored
@ -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]
|
||||
}
|
||||
|
Reference in New Issue
Block a user