Skip to content
Permalink
Browse files

working file regex testing for libraries, etc

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@196 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
landonf committed Aug 18, 2002
1 parent 134f04b commit a232deb7bd56562f355e02ef95b2c4ce95225cd7
Showing with 7 additions and 7 deletions.
  1. +7 −7 Tcl/port1.0/portutil.tcl
@@ -65,7 +65,7 @@ proc makeuserproc {name body} {
# DYLD_FALLBACK_FRAMEWORK_PATH, and DYLD_FALLBACK_LIBRARY_PATH take precedence

proc swdep_resolve {name chain} {
global $name env
global $name env sysportpath
if {![info exists $name]} {
return 0
}
@@ -102,17 +102,17 @@ proc swdep_resolve {name chain} {
}
}
foreach path $search_path {
# XXX XXX XXX XXX Broken XXX XXX XXX XXX
# Always executes. need to fix regex path checking
if {![file isdirectory $path]} {
continue
}
if {![file isfile $path/$depregex]} {
global sysportpath
build $sysportpath/software/$portname build make
return 0
foreach filename [readdir $path] {
if {[regexp $depregex $filename] == 1} {
puts "GOLDEN: $path $filename $depregex"
return 0
}
}
}
build $sysportpath/software/$portname build make
return 0
}

0 comments on commit a232deb

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