[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