Differences From Artifact [181de2dc0e]:
- File client/1.0/neutral/pkgr.eagle — part of check-in [1e32d114b1] at 2017-10-03 19:26:55 on branch trunk — Emit a diagnostic message if a package cannot be downloaded because it is needed by the package downloader itself. (user: mistachkin, size: 84447) [annotate] [blame] [check-ins using]
To Artifact [b447c4a3aa]:
- File client/1.0/neutral/pkgr.eagle — part of check-in [4aa30aea54] at 2017-10-03 21:42:38 on branch trunk — Add host name (if available) and script name to list of candidate settings file prefixes. Also check for a 'DEBUG' environment variables, based on script names, to include the 'debug' candidate settings file prefix. (user: mistachkin, size: 84750) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 |
}
set prefixes [list]
if {[info exists tcl_platform(user)]} then {
lappend prefixes $tcl_platform(user)
}
lappend prefixes ""
foreach prefix $prefixes {
if {[string length $prefix] > 0} then {
set prefix [appendArgs . $prefix]
}
| > > > > > > > > > > > | 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 2165 2166 |
}
set prefixes [list]
if {[info exists tcl_platform(user)]} then {
lappend prefixes $tcl_platform(user)
}
if {[catch {info hostname} hostName] == 0 && \
[string length $hostName] > 0} then {
lappend prefixes $hostName
}
lappend prefixes [string tolower $scriptName]
if {[info exists [appendArgs env(DEBUG_ $scriptName )]]} then {
lappend prefixes debug
}
lappend prefixes ""
foreach prefix $prefixes {
if {[string length $prefix] > 0} then {
set prefix [appendArgs . $prefix]
}
|
| ︙ | ︙ |