diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-03 12:27:37 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-03 12:27:37 (GMT) |
commit | 89f0948b6924bdb698cb27e93364f06b24fa3976 (patch) | |
tree | 2cdfb937a678c6faaf7a6ca7ed5030b33ead4f2a /library/package.tcl | |
parent | e2779b6b41c0ecc07005f1da41c7b6aa5895ed36 (diff) | |
parent | 000147c3a5bd1e6c44efc6e8f56f8e61c86fc0d4 (diff) | |
download | tcl-89f0948b6924bdb698cb27e93364f06b24fa3976.zip tcl-89f0948b6924bdb698cb27e93364f06b24fa3976.tar.gz tcl-89f0948b6924bdb698cb27e93364f06b24fa3976.tar.bz2 |
TIP #459 remaining part of implementation. Makes "package require Tk" give the right (... at least ... the expected ...) answer.
Diffstat (limited to 'library/package.tcl')
-rw-r--r-- | library/package.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/package.tcl b/library/package.tcl index 44e3b28..c72fbfb 100644 --- a/library/package.tcl +++ b/library/package.tcl @@ -488,7 +488,7 @@ proc tclPkgUnknown {name args} { set dir [file dirname $file] if {![info exists procdDirs($dir)]} { try { - source $file + ::tcl::Pkg::source $file } trap {POSIX EACCES} {} { # $file was not readable; silently ignore continue @@ -506,7 +506,7 @@ proc tclPkgUnknown {name args} { # safe interps usually don't have "file exists", if {([interp issafe] || [file exists $file])} { try { - source $file + ::tcl::Pkg::source $file } trap {POSIX EACCES} {} { # $file was not readable; silently ignore continue @@ -590,7 +590,7 @@ proc tcl::MacOSXPkgUnknown {original name args} { set dir [file dirname $file] if {![info exists procdDirs($dir)]} { try { - source $file + ::tcl::Pkg::source $file } trap {POSIX EACCES} {} { # $file was not readable; silently ignore continue |