From 1ee221c87e5d0ba86662ef7ab275b5423d0308ab Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 25 Feb 2003 23:58:07 +0000 Subject: * 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. --- ChangeLog | 7 +++++++ doc/pkgMkIndex.n | 5 +++-- library/package.tcl | 4 ++-- 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 + + * 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 * 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} { -- cgit v0.12