diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-09-20 13:02:29 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-09-20 13:02:29 (GMT) |
| commit | e3309e4d57407994dfba25053019cd7f1f5bd083 (patch) | |
| tree | bf68b0b0a6c8342c24a522435cd2cf797929427a /library/tm.tcl | |
| parent | 2f5ec3509d4e78728930acdb71d70eec99124817 (diff) | |
| parent | a28b7ede49c7e21c0d7150cca682433e94a78464 (diff) | |
| download | tcl-e3309e4d57407994dfba25053019cd7f1f5bd083.zip tcl-e3309e4d57407994dfba25053019cd7f1f5bd083.tar.gz tcl-e3309e4d57407994dfba25053019cd7f1f5bd083.tar.bz2 | |
merge trunk
Diffstat (limited to 'library/tm.tcl')
| -rw-r--r-- | library/tm.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index d2af4f5..55efda6 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -238,6 +238,15 @@ proc ::tcl::tm::UnknownHandler {original name args} { continue } + if {[package ifneeded $pkgname $pkgversion] ne {}} { + # There's already a provide script registered for + # this version of this package. Since all units of + # code claiming to be the same version of the same + # package ought to be identical, just stick with + # the one we already have. + continue + } + # We have found a candidate, generate a "provide script" # for it, and remember it. Note that we are using ::list # to do this; locally [list] means something else without |