diff options
| author | dgp <dgp@users.sourceforge.net> | 2022-10-17 19:23:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2022-10-17 19:23:28 (GMT) |
| commit | 51448d41677600e1a03ebfc365a2638118af2dfe (patch) | |
| tree | 028acaf0a94ecdb68194b3fdcacba3497e734217 /library | |
| parent | ce85e0375acbe9d203e608d2265d7a5244c181d5 (diff) | |
| parent | e245507505c8e6769c57470961dcbf80f6a93807 (diff) | |
| download | tcl-51448d41677600e1a03ebfc365a2638118af2dfe.zip tcl-51448d41677600e1a03ebfc365a2638118af2dfe.tar.gz tcl-51448d41677600e1a03ebfc365a2638118af2dfe.tar.bz2 | |
Implementation of TIP 637.
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 5f0795f..0c4aa29 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 |