Changeset 37728 for trunk/base/src

Timestamp:

06/20/08 18:14:18 (5 months ago)

Author:

raimue@…

Message:

port/port.tcl:
Sort portlists case-insensitive (e.g. for port installed)

Files:

• trunk/base/src/port/port.tcl (modified) (1 diff)

trunk/base/src/port/port.tcl

@@ -357 +357 @@
     array set a_ $a
     array set b_ $b
-    set namecmp [string compare $a_(name) $b_(name)]
+    set namecmp [string compare -nocase $a_(name) $b_(name)]
     if {$namecmp != 0} {
         return $namecmp