diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-12 16:04:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-12 16:04:12 (GMT) |
| commit | 4addfd1f1e4fe9475c50be231c97bea3ffb086f1 (patch) | |
| tree | b9a023d0223c39d7a8e00e805b7dc759024f1c6f /library | |
| parent | 58462852c61eded2afb750f4941bb033a5d51f3e (diff) | |
| download | tcl-4addfd1f1e4fe9475c50be231c97bea3ffb086f1.zip tcl-4addfd1f1e4fe9475c50be231c97bea3ffb086f1.tar.gz tcl-4addfd1f1e4fe9475c50be231c97bea3ffb086f1.tar.bz2 | |
Extract TIP #637 implementation from "novem" branch
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 |