[34331] trunk/base/src/port1.0/portlivecheck.tcl

raimue at macports.org raimue at macports.org
Thu Feb 21 10:33:59 PST 2008


Revision: 34331
          http://trac.macosforge.org/projects/macports/changeset/34331
Author:   raimue at macports.org
Date:     2008-02-21 10:33:57 -0800 (Thu, 21 Feb 2008)

Log Message:
-----------
port1.0/portlivecheck.tcl:
Check for highest version in matching strings, in order to use file listings with multiple versions for livecheck

Modified Paths:
--------------
    trunk/base/src/port1.0/portlivecheck.tcl

Modified: trunk/base/src/port1.0/portlivecheck.tcl
===================================================================
--- trunk/base/src/port1.0/portlivecheck.tcl	2008-02-21 18:00:33 UTC (rev 34330)
+++ trunk/base/src/port1.0/portlivecheck.tcl	2008-02-21 18:33:57 UTC (rev 34331)
@@ -181,20 +181,23 @@
                         ui_debug "The regex matched >$matched<"
                     }
                 } else {
+                    set updated_version 0
                     while {1} {
                         if {[gets $chan line] < 0} {
                             break
                         }
-                        if {[regexp $the_re $line matched updated_version]} {
-                            if {$updated_version != ${livecheck.version}} {
-                                set updated 1
-                            } else {
-                                set updated 0
+                        if {[regexp $the_re $line matched upver]} {
+                            if {[rpm-vercomp $upver $updated_version] > 0} {
+                                set updated_version $upver
                             }
                             ui_debug "The regex matched >$matched<"
-                            break
                         }
                     }
+                    if {$updated_version != ${livecheck.version}} {
+                        set updated 1
+                    } else {
+                        set updated 0
+                    }
                 }
                 close $chan
                 if {$updated < 0} {

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080221/82395bc8/attachment.html 


More information about the macports-changes mailing list