diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-21 08:55:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-21 08:55:02 (GMT) |
| commit | 2cce06805f7f8960bc059c1fc206071a2ad1491a (patch) | |
| tree | 36562cef50ed1984baad25f59e78c1b8b02f56b1 /library | |
| parent | 30c32418f67d6455d36bfeb1b8b4539ca5f23771 (diff) | |
| parent | 5c1a56d36b45b4032778ee7f972181673a3a5ff0 (diff) | |
| download | tcl-2cce06805f7f8960bc059c1fc206071a2ad1491a.zip tcl-2cce06805f7f8960bc059c1fc206071a2ad1491a.tar.gz tcl-2cce06805f7f8960bc059c1fc206071a2ad1491a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -rw-r--r-- | library/init.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl index 790ff73..e7c2f71 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -60,13 +60,13 @@ namespace eval tcl { if {$Dir ni $::auto_path} { lappend ::auto_path $Dir } - catch { + if {[info exists ::tcl_pkgPath]} { catch { foreach Dir $::tcl_pkgPath { if {$Dir ni $::auto_path} { lappend ::auto_path $Dir } } - } + }} if {![interp issafe]} { variable Path [encoding dirs] |