Changeset 117122


Ignore:
Timestamp:
Feb 17, 2014, 3:06:08 AM (6 years ago)
Author:
jmr@…
Message:

allow specifying extra directories to search in for portgroups

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r117121 r117122  
    25742574    lappend PortInfo(portgroups) [list $group $version]
    25752575
     2576    if {[info exists portutil::portgroup_search_dirs]} {
     2577        foreach dir $portutil::portgroup_search_dirs {
     2578            set groupFile ${dir}/${group}-${version}.tcl
     2579            if {[file exists $groupFile]} {
     2580                uplevel "source $groupFile"
     2581                ui_debug "Sourcing PortGroup $group $version from $groupFile"
     2582                return
     2583            }
     2584        }
     2585    }
     2586
    25762587    set groupFile [getportresourcepath $porturl "port1.0/group/${group}-${version}.tcl"]
    25772588
Note: See TracChangeset for help on using the changeset viewer.