diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-11-30 16:10:20 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-11-30 16:10:20 (GMT) |
| commit | fa3bc4b41a79a1a27827362ae3a174b5bb85b3f2 (patch) | |
| tree | 8bcfa6fea1ccdf1c10edbcd55a70269fa893739e /library | |
| parent | 7e7cc4ff29c7c60467e3c3c61c861c2df30c5e78 (diff) | |
| download | tcl-fa3bc4b41a79a1a27827362ae3a174b5bb85b3f2.zip tcl-fa3bc4b41a79a1a27827362ae3a174b5bb85b3f2.tar.gz tcl-fa3bc4b41a79a1a27827362ae3a174b5bb85b3f2.tar.bz2 | |
Stop [glob] complaining about empty list result. Continue support for
a no-op -nocomplain option, but don't document it. Old script support only.
Diffstat (limited to 'library')
| -rw-r--r-- | library/package.tcl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/library/package.tcl b/library/package.tcl index c30431c..5b99a69 100644 --- a/library/package.tcl +++ b/library/package.tcl @@ -137,6 +137,9 @@ proc pkg_mkIndex {args} { } on error {msg opt} { return -options $opt $msg } + if {[llength $fileList] == 0} { + return -code error "no files matched glob pattern \"$patternList\"" + } foreach file $fileList { # For each file, figure out what commands and packages it provides. # To do this, create a child interpreter, load the file into the |