diff options
| author | sebres <sebres@users.sourceforge.net> | 2020-02-17 14:50:45 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2020-02-17 14:50:45 (GMT) |
| commit | 471091f55ae64b4d82644288198e183d8a1865c5 (patch) | |
| tree | b2f7e39feb5ef33d34d4e26ef8558b3baced76b4 /library | |
| parent | 5c380477df5c64afa2d44cbf1637c4760cfb0a0b (diff) | |
| download | tcl-471091f55ae64b4d82644288198e183d8a1865c5.zip tcl-471091f55ae64b4d82644288198e183d8a1865c5.tar.gz tcl-471091f55ae64b4d82644288198e183d8a1865c5.tar.bz2 | |
windows: avoid create of legacy error-vars on init phase (in fresh created interpreter) - no tcl_pkgPath variable on windows
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 eb6b04e..0a5e71b 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] |