Changeset 17536 for trunk/base


Ignore:
Timestamp:
Apr 17, 2006, 7:06:51 AM (14 years ago)
Author:
pguyot (Paul Guyot)
Message:

Hack to work through spaces in regexp.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portlivecheck.tcl

    r17383 r17536  
    22# portlivecheck.tcl
    33#
    4 # $Id: portlivecheck.tcl,v 1.5 2006/04/10 06:59:11 pguyot Exp $
     4# $Id: portlivecheck.tcl,v 1.6 2006/04/17 07:06:51 pguyot Exp $
    55#
    66# Copyright (c) 2005-2006 Paul Guyot <pguyot@kallisys.net>,
     
    131131                                                break
    132132                                        }
    133                                         if {[regexp ${livecheck.regex} $line line updated_version]} {
     133                                        set the_re [eval "concat ${livecheck.regex}"]
     134                                        puts $the_re
     135                                        if {[regexp $the_re $line line updated_version]} {
    134136                                                if {$updated_version != ${livecheck.version}} {
    135137                                                        set updated 1
Note: See TracChangeset for help on using the changeset viewer.