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

[raimue at macports.org]

Revision: 34693
          http://trac.macosforge.org/projects/macports/changeset/34693
Author:   raimue at macports.org
Date:     2008-03-02 15:42:44 -0800 (Sun, 02 Mar 2008)

Log Message:
-----------
port1.0/portlivecheck.tcl:
Revert r34674, it broke other regexes.
Use lists for ${livecheck.regex} instead of strings, so join always operates on a list.

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-03-02 21:30:34 UTC (rev 34692)
+++ trunk/base/src/port1.0/portlivecheck.tcl	2008-03-02 23:42:44 UTC (rev 34693)
@@ -112,7 +112,7 @@
                 set livecheck.url "http://freshmeat.net/projects-xml/${livecheck.name}/${livecheck.name}.xml"
             }
             if {${livecheck.regex} eq ""} {
-                set livecheck.regex "<latest_release_version>(.*)</latest_release_version>"
+                set livecheck.regex [list "<latest_release_version>(.*)</latest_release_version>"]
             }
             set livecheck.check "regex"
         }
@@ -124,7 +124,7 @@
                 set livecheck.distname ${livecheck.name}
             }
             if {${livecheck.regex} eq ""} {
-                set livecheck.regex "<title>[quotemeta ${livecheck.distname}] (.*) released.*</title>"
+                set livecheck.regex [list "<title>[quotemeta ${livecheck.distname}] (.*) released.*</title>"]
             }
             set livecheck.check "regex"
         }
@@ -136,7 +136,7 @@
                 set livecheck.distname [regsub ***=${livecheck.version} [file tail [lindex ${distfiles} 0]] (.*)]
             }
             if {${livecheck.regex} eq ""} {
-                set livecheck.regex "<a href=\"http://[quotemeta ${livecheck.name}].googlecode.com/files/[quotemeta ${livecheck.distname}]\""
+                set livecheck.regex [list "<a href=\"http://[quotemeta ${livecheck.name}].googlecode.com/files/[quotemeta ${livecheck.distname}]\""]
             }
             set livecheck.check "regex"
         }
@@ -148,7 +148,7 @@
                 set livecheck.distname ${livecheck.name}
             }
             if {${livecheck.regex} eq ""} {
-                set livecheck.regex "[quotemeta ${livecheck.distname}]-(\\\\d+(?:\\\\.\\\\d+)*)"
+                set livecheck.regex [list "[quotemeta ${livecheck.distname}]-(\\\\d+(?:\\\\.\\\\d+)*)"]
             }
             set livecheck.check "regex"
         }
@@ -169,7 +169,7 @@
                 # let's extract the version from the file.
                 set chan [open $tempfile "r"]
                 set updated -1
-                set the_re ${livecheck.regex}
+                set the_re [join ${livecheck.regex}]
                 ui_debug "The regex is \"$the_re\""
                 if {${livecheck.check} == "regexm"} {
                     set data [read $chan]

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080302/02178ad3/attachment.html