remove implicit [pwd] prepending to relative paths given to rel_sym_path. this assumption is incorrect in some cases
This commit is contained in:
parent
e789988b05
commit
9cb435c43c
|
|
@ -7009,15 +7009,15 @@ proc rel_sym_path {symbol {paths {}} } {
|
|||
|
||||
if { $paths eq {}} {set paths $pathlist}
|
||||
regsub {^~/} $symbol ${env(HOME)}/ symbol
|
||||
if {$OS eq "Windows"} {
|
||||
if {![regexp {^[A-Za-z]\:/} $symbol]} {
|
||||
set symbol [pwd]/$symbol
|
||||
}
|
||||
} else {
|
||||
if {![regexp {^/} $symbol]} {
|
||||
set symbol [pwd]/$symbol
|
||||
}
|
||||
}
|
||||
# if {$OS eq "Windows"} {
|
||||
# if {![regexp {^[A-Za-z]\:/} $symbol]} {
|
||||
# set symbol [pwd]/$symbol
|
||||
# }
|
||||
# } else {
|
||||
# if {![regexp {^/} $symbol]} {
|
||||
# set symbol [pwd]/$symbol
|
||||
# }
|
||||
# }
|
||||
set curr_dirname [pwd]
|
||||
set name {}
|
||||
foreach path_elem $paths {
|
||||
|
|
|
|||
Loading…
Reference in New Issue