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

[Perry Lee]

On Mar 17, 2009, at 5:49 PM, David Evans wrote:
> livecheck.name GIMP
> livecheck.name XVid
> livecheck.name XSane
>
> But it would be more elegant if it could be done automatically.

Index: src/port1.0/portlivecheck.tcl
===================================================================
--- src/port1.0/portlivecheck.tcl       (revision 48265)
+++ src/port1.0/portlivecheck.tcl       (working copy)
@@ -199,7 +199,7 @@
                     set updated_version 0
                     set foundmatch 0
                     while {[gets $chan line] >= 0} {
-                        if {[regexp $the_re $line matched upver]} {
+                        if {[regexp -nocase $the_re $line matched  
upver]} {
                             set foundmatch 1
                             if {$updated_version == 0 || [rpm-vercomp  
$upver $updated_version] > 0} {
                                 set updated_version $upver

With the above change, livecheck works with the examples you've listed  
(i.e., you don't need to change their livecheck.names). Are there any  
negative repercussions for ignoring case in livecheck, though?