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

[afb at macports.org]

Revision: 50329
          http://trac.macports.org/changeset/50329
Author:   afb at macports.org
Date:     2009-04-29 00:32:13 -0700 (Wed, 29 Apr 2009)
Log Message:
-----------
portlist_sortint ignored revisions (#17344)

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2009-04-29 06:52:54 UTC (rev 50328)
+++ trunk/base/src/port/port.tcl	2009-04-29 07:32:13 UTC (rev 50329)
@@ -407,12 +407,12 @@
 }
 
 proc portlist_compareint { a b } {
-    array set a_ [list "name" [lindex $a 0] "version" [lindex $a 1] "revision" [lindex $a 2]]
-    array set b_ [list "name" [lindex $b 0] "version" [lindex $b 1] "revision" [lindex $b 2]]
+    array set a_ [list "name" [lindex $a 0] "version" "[lindex $a 1]_[lindex $a 2]"]
+    array set b_ [list "name" [lindex $b 0] "version" "[lindex $b 1]_[lindex $b 2]"]
     return [portlist_compare [array get a_] [array get b_]]
 }
 
-# Same as portlist_sort, but with numeric indexes
+# Same as portlist_sort, but with numeric indexes {name version revision}
 proc portlist_sortint { list } {
     return [lsort -command portlist_compareint $list]
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090429/048f8440/attachment.html>