diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-04 15:16:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-04 15:16:31 (GMT) |
| commit | 2e108cd831c0768e78523e91979084cad3655df6 (patch) | |
| tree | 8ca691e8c894be68793df51fc0d2d0ce35e98b2a /library/init.tcl | |
| parent | 27fb8875b78c3eb6a4c6bf6068986399a2a299db (diff) | |
| download | tcl-2e108cd831c0768e78523e91979084cad3655df6.zip tcl-2e108cd831c0768e78523e91979084cad3655df6.tar.gz tcl-2e108cd831c0768e78523e91979084cad3655df6.tar.bz2 | |
Fix safe.tcl test-cases: "source -nopkg" is not necessary here: "source" is an alias for "::safe::AliasSource", which doesn't use "source"
Diffstat (limited to 'library/init.tcl')
| -rw-r--r-- | library/init.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/init.tcl b/library/init.tcl index 65a19aa..e3d4ef0 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -486,7 +486,7 @@ proc auto_load_index {} { set dir [lindex $auto_path $i] set f "" if {$issafe} { - catch {source -nopkg [file join $dir tclIndex]} + catch {source [file join $dir tclIndex]} } elseif {[catch {set f [open [file join $dir tclIndex]]}]} { continue } else { |