Skip to content
Permalink
Browse files

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?

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@14494 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
jmpalacios committed Oct 9, 2005
1 parent 34b9b6d commit 46e9f55fb355e1a8b4be13f688f0773dcce0a3d9
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/port/portindex.tcl
@@ -4,7 +4,7 @@ exec @TCLSH@ "$0" "$@"

# Traverse through all ports, creating an index and archiving port directories
# if requested
# $Id: portindex.tcl,v 1.31 2005/10/09 01:02:08 jberry Exp $
# $Id: portindex.tcl,v 1.32 2005/10/09 05:49:02 jmpp Exp $

catch {source \
[file join "@TCL_PACKAGE_DIR@" darwinports1.0 darwinports_fastload.tcl]}
@@ -135,7 +135,7 @@ proc pindex {portdir} {
set newDeps {}
foreach dep $deps {
if {[string match "path:$prefix/*" $dep]} {
lappend newDeps [regsub "^path:$prefix/" $dep "path:\$prefix/"]
lappend newDeps [regsub "^path:$prefix/" $dep "path:\$\{prefix\}/"]
} else {
lappend newDeps $dep
}

0 comments on commit 46e9f55

Please sign in to comment.
You can’t perform that action at this time.