diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-09-05 15:47:29 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-09-05 15:47:29 (GMT) |
| commit | 30710a181cec66e45ca810d5f5fb39b91b309a8a (patch) | |
| tree | 7b3c32604fea645b8992818526a5eaa75c23be50 /library/tm.tcl | |
| parent | 5684ad8d9463f7c23551d1fef32f69c3f72fdd27 (diff) | |
| download | tcl-30710a181cec66e45ca810d5f5fb39b91b309a8a.zip tcl-30710a181cec66e45ca810d5f5fb39b91b309a8a.tar.gz tcl-30710a181cec66e45ca810d5f5fb39b91b309a8a.tar.bz2 | |
Use ne instead of [string length] for less shimmer risk.
Diffstat (limited to 'library/tm.tcl')
| -rw-r--r-- | library/tm.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index 955e84d..55efda6 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -238,7 +238,7 @@ proc ::tcl::tm::UnknownHandler {original name args} { continue } - if {[string length [package ifneeded $pkgname $pkgversion]]} { + 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 |