better tilde substitution in some tcl procedures

2023-03-24 00:49:44 +01:00 · 2023-03-24 00:49:44 +01:00 · e7b4dcfaae
parent 2725e0c533
commit e7b4dcfaae
1 changed files with 2 additions and 1 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -6193,7 +6193,8 @@ proc set_paths {} {
      set pathlist_orig [split $XSCHEM_LIBRARY_PATH :]
    }
    foreach i $pathlist_orig {
-      regsub {^~} $i $env(HOME) i
+      regsub {^~$} $i ${env(HOME)} i
+      regsub {^~/} $i ${env(HOME)}/ i
      if { ![string compare $i .] } {
        lappend pathlist $i
      } elseif { [ regexp {\.\.\/} $i] } {