Changeset 14494 for trunk/base


Ignore:
Timestamp:
Oct 9, 2005, 5:49:02 AM (15 years ago)
Author:
jmpp
Message:

Submitted by: jmpp@

"prefix" string substitution looks prettier like this ;-)

PS: I've regen an index with this change and everything seems to be working OK,
the result has a higher level of abstraction, albeit a rather manual one.
Not sure if this (Jame's idea) is the best approach, but at least it seems
to be working. Thoughts?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/portindex.tcl

    r14492 r14494  
    55# Traverse through all ports, creating an index and archiving port directories
    66# if requested
    7 # $Id: portindex.tcl,v 1.31 2005/10/09 01:02:08 jberry Exp $
     7# $Id: portindex.tcl,v 1.32 2005/10/09 05:49:02 jmpp Exp $
    88
    99catch {source \
     
    136136                        foreach dep $deps {
    137137                                if {[string match "path:$prefix/*" $dep]} {
    138                                         lappend newDeps [regsub "^path:$prefix/" $dep "path:\$prefix/"]
     138                                    lappend newDeps [regsub "^path:$prefix/" $dep "path:\$\{prefix\}/"]
    139139                                } else {
    140140                                        lappend newDeps $dep
Note: See TracChangeset for help on using the changeset viewer.