summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorsurles <surles>1999-04-20 02:20:41 (GMT)
committersurles <surles>1999-04-20 02:20:41 (GMT)
commitd81cb57b05280ff7ad32f29f973b028856e3cd24 (patch)
treed426ff0a463703ebdd8c0dfd8f12ade63cbfde18
parente3fc51eed60bb6835dbd70dcc5ec151339ac13be (diff)
downloadtcl-d81cb57b05280ff7ad32f29f973b028856e3cd24.zip
tcl-d81cb57b05280ff7ad32f29f973b028856e3cd24.tar.gz
tcl-d81cb57b05280ff7ad32f29f973b028856e3cd24.tar.bz2
fixed bug 1497 for 8.1: tclPkgUnknown should test for read privs
-rw-r--r--library/package.tcl8
1 files changed, 5 insertions, 3 deletions
diff --git a/library/package.tcl b/library/package.tcl
index 6cbaf67..4fa50c3 100644
--- a/library/package.tcl
+++ b/library/package.tcl
@@ -3,7 +3,7 @@
# utility procs formerly in init.tcl which can be loaded on demand
# for package management.
#
-# RCS: @(#) $Id: package.tcl,v 1.3 1999/04/20 02:08:38 surles Exp $
+# RCS: @(#) $Id: package.tcl,v 1.4 1999/04/20 02:20:41 surles Exp $
#
# Copyright (c) 1991-1993 The Regents of the University of California.
# Copyright (c) 1994-1998 Sun Microsystems, Inc.
@@ -443,8 +443,10 @@ proc tclPkgUnknown {name version {exact {}}} {
foreach file [glob -nocomplain [file join [lindex $auto_path $i] \
* pkgIndex.tcl]] {
set dir [file dirname $file]
- if {[file readable $file] && [catch {source $file} msg]} {
- tclLog "error reading package index file $file: $msg"
+ if {[file readable $file]} {
+ if {[catch {source $file} msg]} {
+ tclLog "error reading package index file $file: $msg"
+ }
}
}
}