cleanup double (or more) slashes in pathlist when parsing XSCHEM_LIBRARY_PATH

This commit is contained in:
stefan schippers 2025-11-03 12:21:48 +01:00
parent e0a9073d46
commit f3457e0f19
1 changed files with 1 additions and 0 deletions

View File

@ -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] } {