diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-11 14:39:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-11 14:39:43 (GMT) |
| commit | f284e2a2d87e5124e79185e2ec48905f9d992b91 (patch) | |
| tree | 9d042afc01b03707cb9114f6fd60e49ccc6243ea /library/init.tcl | |
| parent | 6b05e4086f08a1a91dc39467e9421a011ba91768 (diff) | |
| parent | 7a0c0b20340a1a22093e6a1496834724276a5292 (diff) | |
| download | tcl-f284e2a2d87e5124e79185e2ec48905f9d992b91.zip tcl-f284e2a2d87e5124e79185e2ec48905f9d992b91.tar.gz tcl-f284e2a2d87e5124e79185e2ec48905f9d992b91.tar.bz2 | |
merge fork
Diffstat (limited to 'library/init.tcl')
| -rw-r--r-- | library/init.tcl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/library/init.tcl b/library/init.tcl index 31139dd..d2e3624 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -47,7 +47,15 @@ package require -exact tcl 9.0a4 if {![info exists auto_path]} { if {[info exists env(TCLLIBPATH)] && (![interp issafe])} { - set auto_path $env(TCLLIBPATH) + set auto_path [apply {{} { + lmap path $::env(TCLLIBPATH) { + # Paths relative to unresolvable home dirs are ignored + if {[catch {file tildeexpand $path} expanded_path]} { + continue + } + set expanded_path + } + }}] } else { set auto_path "" } |