summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-05 15:47:29 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-05 15:47:29 (GMT)
commit4bba36ca59c3760f9e2a593e8135aa6f8352919e (patch)
tree7b3c32604fea645b8992818526a5eaa75c23be50
parent654dc20b4af9b37825f7faffaa0e714dad02ce92 (diff)
downloadtcl-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.tcl2
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