summaryrefslogtreecommitdiffstats
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
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.
-rw-r--r--ChangeLog7
-rw-r--r--doc/pkgMkIndex.n5
-rw-r--r--library/package.tcl4
3 files changed, 12 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 3ef59d5..3130b3e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2003-02-25 Don Porter <dgp@users.sourceforge.net>
+
+ * 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.
+
2003-02-25 Andreas Kupries <andreask@pliers.activestate.com>
* tests/pid.test: See below [Bug #678412].
diff --git a/doc/pkgMkIndex.n b/doc/pkgMkIndex.n
index 6c03082..a7291b2 100644
--- a/doc/pkgMkIndex.n
+++ b/doc/pkgMkIndex.n
@@ -4,7 +4,7 @@
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\"
-'\" RCS: @(#) $Id: pkgMkIndex.n,v 1.13 2002/07/01 18:24:39 jenglish Exp $
+'\" RCS: @(#) $Id: pkgMkIndex.n,v 1.14 2003/02/25 23:58:09 dgp Exp $
'\"
.so man.macros
.TH pkg_mkIndex n 8.3 Tcl "Tcl Built-In Commands"
@@ -114,7 +114,8 @@ it immediately upon \fBpackage require\fR.
\fB\-load \fIpkgPat\fR
The index process will pre-load any packages that exist in the
current interpreter and match \fIpkgPat\fP into the slave interpreter used to
-generate the index. The pattern match uses string match rules.
+generate the index. The pattern match uses string match rules, but without
+making case distinctions.
See COMPLEX CASES below.
.TP 15
\fB\-verbose\fR
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} {