Changeset 36955


Ignore:
Timestamp:
May 21, 2008, 3:01:11 AM (12 years ago)
Author:
raimue@…
Message:

macports1.0/macports.tcl:
Give worker access to getprotocol and getportdir as they are needed for getsourceconfigdir

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/variant-descs-14482/base/src/macports1.0/macports.tcl

    r36953 r36955  
    739739    $workername alias getportworkpath_from_buildpath macports::getportworkpath_from_buildpath
    740740    $workername alias getsourceconfigdir macports::getsourceconfigdir
     741    $workername alias getprotocol macports::getprotocol
     742    $workername alias getportdir macports::getportdir
    741743
    742744    # New Registry/Receipts stuff
     
    895897#         not support .config
    896898proc macports::getsourceconfigdir {url} {
    897     set protocol [macports::getprotocol $url]
     899    if {[catch {getprotocol $url} protocol]} {
     900        return ""
     901    }
     902
    898903    switch -- ${protocol} {
    899904        file {
    900             return [file normalize [file join [macports::getportdir $url] .. .. .config]]
     905            return [file normalize [file join [getportdir $url] .. .. .config]]
    901906        }
    902907        default {
Note: See TracChangeset for help on using the changeset viewer.