diff options
| author | andreas_kupries <akupries@shaw.ca> | 2008-08-11 21:04:42 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2008-08-11 21:04:42 (GMT) |
| commit | 1a86c2e86267a3ddb6c0543e27e524eabff94442 (patch) | |
| tree | 10d44c878467898cadadc79b2c402971ba868000 | |
| parent | ca80199d12c1842a8046ed38269b20bbdbe2ca80 (diff) | |
| download | tcl-1a86c2e86267a3ddb6c0543e27e524eabff94442.zip tcl-1a86c2e86267a3ddb6c0543e27e524eabff94442.tar.gz tcl-1a86c2e86267a3ddb6c0543e27e524eabff94442.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.
| -rw-r--r-- | ChangeLog | 8 | ||||
| -rw-r--r-- | library/tm.tcl | 3 |
2 files changed, 10 insertions, 1 deletions
@@ -1,5 +1,13 @@ 2008-08-11 Andreas Kupries <andreask@activestate.com> + * 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. + * generic/tclProc.c (Tcl_ProcObjCmd): Fixed memory leak triggered * tests/proc.test: by procbody::test::proc. See [Bug 2043636]. Added a test case demonstrating the leak before the fix. Fixed a diff --git a/library/tm.tcl b/library/tm.tcl index f6ffe5d..4f8e09e 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 |