Ticket #17041: patch-portlivecheck.tcl.diff

portlivecheck.tcl

@@ -188 +188 @@
                 if {${livecheck.check} == "regexm"} {
                     set data [read $chan]
                     if {[regexp $the_re $data matched updated_version]} {
-                        if {$updated_version != ${livecheck.version}} {
+                        if {[rpm-vercomp $updated_version ${livecheck.version}] > 0} {
                             set updated 1
+                            ui_debug "Extracted version \"$updated_version\" is newer than livecheck version \"${livecheck.version}\""
                         } else {
                             set updated 0
+                            ui_debug "Livecheck version \"${livecheck.version}\" is newer than or equal to extracted version \"$updated_version\""
                         }
                         ui_debug "The regex matched \"$matched\", extracted \"$updated_version\""
                     }
@@ -210 +212 @@
                     if {$foundmatch == 1} {
                         if {$updated_version == 0} {
                             set updated -1
-                        } elseif {$updated_version != ${livecheck.version}} {
+                        } elseif {[rpm-vercomp $updated_version ${livecheck.version}] > 0} {
                             set updated 1
+                            ui_debug "Extracted version \"$updated_version\" is newer than livecheck version \"${livecheck.version}\""
                         } else {
                             set updated 0
+                            ui_debug "Livecheck version \"${livecheck.version}\" is newer than or equal to extracted version \"$updated_version\""
                         }
                     }
                 }