diff options
| author | andreas_kupries <akupries@shaw.ca> | 2008-08-11 21:03:40 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2008-08-11 21:03:40 (GMT) |
| commit | 7fa31eb998be4e62a77228d331967d24d0a45fc6 (patch) | |
| tree | 2a17dce4d0dc38fcd2bfe897c3571a7a5663bffc /library/tm.tcl | |
| parent | 393b349e6328bb105f6f2aca4197831c77b53757 (diff) | |
| download | tcl-7fa31eb998be4e62a77228d331967d24d0a45fc6.zip tcl-7fa31eb998be4e62a77228d331967d24d0a45fc6.tar.gz tcl-7fa31eb998be4e62a77228d331967d24d0a45fc6.tar.bz2 | |
* library/tm.tcl: Added a 'package provide' command to the
generated ifneeded scripts of Tcl Modules, for early detection of
conflicts between the version specified through the file name and
a 'provide' command in the module implementation, if any. Note
that this change also now allows Tcl Modules to not provide a
'provide' command at all, and declaring their version only through
their filename.
Diffstat (limited to 'library/tm.tcl')
| -rw-r--r-- | library/tm.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index 4f58d12..24ddb86 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -254,7 +254,8 @@ proc ::tcl::tm::UnknownHandler {original name args} { # means something else without the namespace # specifier. - package ifneeded $pkgname $pkgversion [::list source -encoding utf-8 $file] + package ifneeded $pkgname $pkgversion \ + "[::list package provide $pkgname $pkgversion];[::list source -encoding utf-8 $file]" # We abort in this unknown handler only if we got # a satisfying candidate for the requested |