summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-02-25 23:58:07 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-02-25 23:58:07 (GMT)
commit1ee221c87e5d0ba86662ef7ab275b5423d0308ab (patch)
treea73394e56c1d7f7bdb4cb605f5a675b3f829f4ff /library
parentd1b091eb4fb7d440ca4281ab468189ce04b508a6 (diff)
downloadtcl-1ee221c87e5d0ba86662ef7ab275b5423d0308ab.zip
tcl-1ee221c87e5d0ba86662ef7ab275b5423d0308ab.tar.gz
tcl-1ee221c87e5d0ba86662ef7ab275b5423d0308ab.tar.bz2
* doc/pkgMkIndex.n: Modified [pkg_mkIndex] to use -nocase matching
* library/package.tcl: of -load patterns, to better accomodate common user errors due to confusion between [package names] names and [info loaded] names.
Diffstat (limited to 'library')
-rw-r--r--library/package.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/package.tcl b/library/package.tcl
index d69f21e..96e2f00 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.22 2003/02/21 05:30:18 dgp Exp $
+# RCS: @(#) $Id: package.tcl,v 1.23 2003/02/25 23:58:09 dgp Exp $
#
# Copyright (c) 1991-1993 The Regents of the University of California.
# Copyright (c) 1994-1998 Sun Microsystems, Inc.
@@ -176,7 +176,7 @@ proc pkg_mkIndex {args} {
}
}
foreach pkg [info loaded] {
- if {! [string match $loadPat [lindex $pkg 1]]} {
+ if {! [string match -nocase $loadPat [lindex $pkg 1]]} {
continue
}
if {$doVerbose} {