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 | 707993b1dd4f01322cdbea334c71a1202373fa9b (patch) | |
| tree | 8ca691e8c894be68793df51fc0d2d0ce35e98b2a /library | |
| parent | 1297b4be9b37d8c39cb9bd2f8451c1b69bc6fa13 (diff) | |
| download | tcl-707993b1dd4f01322cdbea334c71a1202373fa9b.zip tcl-707993b1dd4f01322cdbea334c71a1202373fa9b.tar.gz tcl-707993b1dd4f01322cdbea334c71a1202373fa9b.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')
| -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 { |