get_pwd fix for windows

This commit is contained in:
Jason DeBettencourt
2021-01-16 13:01:07 -05:00
parent bfeff02653
commit aabaed09c7

View File

@@ -175,7 +175,7 @@ proc get_pwd {} {
# defeat the purpose of this procedure. # defeat the purpose of this procedure.
# #
return [string map [list \\ /] \ return [string map [list \\ /] \
[string trim [exec -- $::env(ComSpec) /c echo %CD%]]] [string trim [exec -- $::env(ComSpec) /c cd ]]]
} else { } else {
return [pwd] return [pwd]
} }