cleanup double (or more) slashes in pathlist when parsing XSCHEM_LIBRARY_PATH
This commit is contained in:
parent
e0a9073d46
commit
f3457e0f19
|
|
@ -10552,6 +10552,7 @@ proc cleanup_paths {paths} {
|
||||||
foreach i $paths {
|
foreach i $paths {
|
||||||
regsub {^~$} $i ${env(HOME)} i
|
regsub {^~$} $i ${env(HOME)} i
|
||||||
regsub {^~/} $i ${env(HOME)}/ i
|
regsub {^~/} $i ${env(HOME)}/ i
|
||||||
|
regsub -all {/+} $i {/} i
|
||||||
if {![string compare $i .]} {
|
if {![string compare $i .]} {
|
||||||
# ...
|
# ...
|
||||||
} elseif { [regexp {^#} $i] } {
|
} elseif { [regexp {^#} $i] } {
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue