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 | 4bba36ca59c3760f9e2a593e8135aa6f8352919e (patch) | |
| tree | 7b3c32604fea645b8992818526a5eaa75c23be50 | |
| parent | 654dc20b4af9b37825f7faffaa0e714dad02ce92 (diff) | |
| download | tcl-4bba36ca59c3760f9e2a593e8135aa6f8352919e.zip tcl-4bba36ca59c3760f9e2a593e8135aa6f8352919e.tar.gz tcl-4bba36ca59c3760f9e2a593e8135aa6f8352919e.tar.bz2 | |
Use ne instead of [string length] for less shimmer risk.
| -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 |