Ticket #19338: getportresourcepath.diff
File getportresourcepath.diff, 1.2 KB (added by jmroot (Joshua Root), 15 years ago) |
---|
-
src/macports1.0/macports.tcl
970 970 proc macports::getportresourcepath {url {path ""} {fallback yes}} { 971 971 global macports::sources_default 972 972 973 set protocol [getprotocol $url] 974 975 switch -- ${protocol} { 976 file { 977 set proposedpath [file normalize [file join [getportdir $url] .. ..]] 978 } 973 if {[getprotocol $url] == "file"} { 974 set proposedpath [getportdir $url] 975 } else { 976 set proposedpath [getsourcepath $url] 979 977 } 980 978 981 979 # append requested path … … 997 995 global macports::sources_default 998 996 999 997 set default_source_url [lindex ${sources_default} 0] 1000 if {[getprotocol $default_source_url] == "file"} { 1001 set proposedpath [getportdir $default_source_url] 1002 } else { 1003 set proposedpath [getsourcepath $default_source_url] 1004 } 1005 1006 # append requested path 1007 set proposedpath [file join $proposedpath _resources $path] 1008 1009 return $proposedpath 998 return [getportresourcepath $default_source_url $path no] 1010 999 } 1011 1000 1012 1001 # mportopen