Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fixed bug 1497 for 8.1: tclPkgUnknown should test for read privs |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5453e219cf4d084bd13885906caf607b |
| User & Date: | surles 1999-04-20 02:20:41.000 |
Context
|
1999-04-20
| ||
| 18:12 | moved the ThreadReap command to ::tcltest::threadReap. Now each thread test calls threadReap at the... check-in: 4ad79d1151 user: hershey tags: trunk | |
| 02:20 | fixed bug 1497 for 8.1: tclPkgUnknown should test for read privs check-in: 5453e219cf user: surles tags: trunk | |
| 02:08 | fixed bug 1497 for 8.1: tclPkgUnknown should test for read privs check-in: 332efad49d user: surles tags: trunk | |
Changes
Changes to library/package.tcl.
1 2 3 4 5 | # package.tcl -- # # utility procs formerly in init.tcl which can be loaded on demand # for package management. # | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 | # package.tcl -- # # utility procs formerly in init.tcl which can be loaded on demand # for package management. # # 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. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # |
| ︙ | ︙ | |||
439 440 441 442 443 444 445 |
for {set i [expr {[llength $auto_path] - 1}]} {$i >= 0} {incr i -1} {
# we can't use glob in safe interps, so enclose the following
# in a catch statement
catch {
foreach file [glob -nocomplain [file join [lindex $auto_path $i] \
* pkgIndex.tcl]] {
set dir [file dirname $file]
| | > | > | 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 |
for {set i [expr {[llength $auto_path] - 1}]} {$i >= 0} {incr i -1} {
# we can't use glob in safe interps, so enclose the following
# in a catch statement
catch {
foreach file [glob -nocomplain [file join [lindex $auto_path $i] \
* pkgIndex.tcl]] {
set dir [file dirname $file]
if {[file readable $file]} {
if {[catch {source $file} msg]} {
tclLog "error reading package index file $file: $msg"
}
}
}
}
set dir [lindex $auto_path $i]
set file [file join $dir pkgIndex.tcl]
# safe interps usually don't have "file readable", nor stderr channel
if {[interp issafe] || [file readable $file]} {
|
| ︙ | ︙ |