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

[Ryan Schmidt]

On Apr 25, 2009, at 01:28, perry at macports.org wrote:

> Revision: 50093
>           http://trac.macports.org/changeset/50093
> Author:   perry at macports.org
> Date:     2009-04-24 23:28:08 -0700 (Fri, 24 Apr 2009)
> Log Message:
> -----------
> port1.0/portlivecheck.tcl:
> * (.*) should not be quotemeta-ed in the default googlecheck  
> livecheck.regex.

But the distfile name should be, shouldn't it?


> Modified Paths:
> --------------
>     trunk/base/src/port1.0/portlivecheck.tcl
>
> Modified: trunk/base/src/port1.0/portlivecheck.tcl
> ===================================================================
> --- trunk/base/src/port1.0/portlivecheck.tcl	2009-04-25 05:52:47  
> UTC (rev 50092)
> +++ trunk/base/src/port1.0/portlivecheck.tcl	2009-04-25 06:28:08  
> UTC (rev 50093)
> @@ -150,10 +150,10 @@
>                  set livecheck.url "http://code.google.com/p/$ 
> {livecheck.name}/downloads/list"
>              }
>              if {${livecheck.distname} eq "default"} {
> -                set livecheck.distname [regsub ***=$ 
> {livecheck.version} [file tail [lindex ${distfiles} 0]] (.*)]
> +                set livecheck.distname [regsub ***=[quotemeta $ 
> {livecheck.version}] [quotemeta [file tail [lindex ${distfiles}  
> 0]]] (.*)]
>              }
>              if {${livecheck.regex} eq ""} {
> -                set livecheck.regex [list "<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/$ 
> {livecheck.distname}\""]
>              }
>              set livecheck.check "regex"
>          }