diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-21 08:52:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-21 08:52:54 (GMT) |
| commit | 5c1a56d36b45b4032778ee7f972181673a3a5ff0 (patch) | |
| tree | 668427e000ea020a58f9714c6988f14b3edfadb4 /library/init.tcl | |
| parent | 73cc9cd62f844146e1d9a835511da3b641aafac0 (diff) | |
| parent | 1fb8e115c4cd0dc9a351e7a6e183f8956996117d (diff) | |
| download | tcl-5c1a56d36b45b4032778ee7f972181673a3a5ff0.zip tcl-5c1a56d36b45b4032778ee7f972181673a3a5ff0.tar.gz tcl-5c1a56d36b45b4032778ee7f972181673a3a5ff0.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library/init.tcl')
| -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 c6ef7a2..4ea22d8 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] |