diff options
| author | sebres <sebres@users.sourceforge.net> | 2020-02-17 14:52:54 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2020-02-17 14:52:54 (GMT) |
| commit | e2bcebca7960c4d0ef4d4763bb4025b6d9bce7bf (patch) | |
| tree | c2b9154d1dffb890c75c9a63a787e3e008861768 /library/init.tcl | |
| parent | 958180f361624feca02e571e1de44329d67df0d1 (diff) | |
| parent | 471091f55ae64b4d82644288198e183d8a1865c5 (diff) | |
| download | tcl-e2bcebca7960c4d0ef4d4763bb4025b6d9bce7bf.zip tcl-e2bcebca7960c4d0ef4d4763bb4025b6d9bce7bf.tar.gz tcl-e2bcebca7960c4d0ef4d4763bb4025b6d9bce7bf.tar.bz2 | |
merge 8.5
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 5cda0d9..5cc0fee 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -57,13 +57,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] |