[37728] trunk/base/src/port/port.tcl

[raimue at macports.org]

Revision: 37728
          http://trac.macosforge.org/projects/macports/changeset/37728
Author:   raimue at macports.org
Date:     2008-06-20 18:14:18 -0700 (Fri, 20 Jun 2008)
Log Message:
-----------
port/port.tcl:
Sort portlists case-insensitive (e.g. for port installed)

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2008-06-20 23:42:38 UTC (rev 37727)
+++ trunk/base/src/port/port.tcl	2008-06-21 01:14:18 UTC (rev 37728)
@@ -356,7 +356,7 @@
 proc portlist_compare { a b } {
     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
     }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080620/4ac69b85/attachment.htm