<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.
</pre>
<p><a href="https://github.com/macports/macports-base/commit/c6b5a6bec4f86c252a503f0151b8c2410d6a1d6e">https://github.com/macports/macports-base/commit/c6b5a6bec4f86c252a503f0151b8c2410d6a1d6e</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new c6b5a6b Fix odd 'if' syntax
</span>c6b5a6b is described below
<span style='display:block; white-space:pre;color:#808000;'>commit c6b5a6bec4f86c252a503f0151b8c2410d6a1d6e
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sat Dec 10 22:55:48 2016 +1100
<span style='display:block; white-space:pre;color:#404040;'> Fix odd 'if' syntax
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> Enclosing the first argument of Tcl's 'if' in parentheses instead of
</span><span style='display:block; white-space:pre;color:#404040;'> braces is instinctive for C programmers, but it only works if the
</span><span style='display:block; white-space:pre;color:#404040;'> condition contains no spaces, and probably prevents byte compilation.
</span>---
src/package1.0/portpkg.tcl | 4 ++--
src/port/port.tcl | 8 ++++----
src/port1.0/portfetch.tcl | 4 ++--
src/port1.0/portlint.tcl | 4 ++--
4 files changed, 10 insertions(+), 10 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/package1.0/portpkg.tcl b/src/package1.0/portpkg.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 0138930..2f57878 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/package1.0/portpkg.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/package1.0/portpkg.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -139,7 +139,7 @@ proc portpkg::package_pkg {portname portepoch portversion portrevision} {
</span> }
foreach dir {etc var tmp} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if ([file exists "${destpath}/$dir"]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {[file exists "${destpath}/$dir"]} {
</span> # certain toplevel directories really are symlinks. leaving them as directories make pax lose the symlinks. that's bad.
file mkdir "${destpath}/private/${dir}"
file rename {*}[glob ${destpath}/${dir}/*] "${destpath}/private/${dir}"
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -232,7 +232,7 @@ proc portpkg::package_pkg {portname portepoch portversion portrevision} {
</span> }
foreach dir {etc var tmp} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if ([file exists "${destpath}/private/$dir"]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {[file exists "${destpath}/private/$dir"]} {
</span> # restore any directories that were moved, to avoid confusing the rest of the ports system.
file rename ${destpath}/private/$dir ${destpath}/$dir
}
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/port.tcl b/src/port/port.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 5160f7f..ab83c43 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -337,10 +337,10 @@ proc add_ports_to_portlist {listname ports {overridelist ""}} {
</span> # specified as overrides
foreach portentry $ports {
array set port $portentry
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if ([info exists overrides(version)]) { set port(version) $overrides(version) }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if ([info exists overrides(variants)]) { set port(variants) $overrides(variants) }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if ([info exists overrides(requested_variants)]) { set port(requested_variants) $overrides(requested_variants) }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if ([info exists overrides(options)]) { set port(options) $overrides(options) }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {[info exists overrides(version)]} { set port(version) $overrides(version) }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {[info exists overrides(variants)]} { set port(variants) $overrides(variants) }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {[info exists overrides(requested_variants)]} { set port(requested_variants) $overrides(requested_variants) }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {[info exists overrides(options)]} { set port(options) $overrides(options) }
</span> add_to_portlist portlist [array get port]
}
}
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/portfetch.tcl b/src/port1.0/portfetch.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 524d4f5..a6a67f3 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/portfetch.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/portfetch.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -311,10 +311,10 @@ proc portfetch::bzrfetch {args} {
</span> return -code error [msgcat::mc "Bazaar checkout failed"]
}
} finally {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if ([info exists orig_http_proxy]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {[info exists orig_http_proxy]} {
</span> set env(http_proxy) ${orig_http_proxy}
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if ([info exists orig_https_proxy]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {[info exists orig_https_proxy]} {
</span> set env(HTTPS_PROXY) ${orig_https_proxy}
}
}
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/portlint.tcl b/src/port1.0/portlint.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 0972477..0308994 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/portlint.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/portlint.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -349,7 +349,7 @@ proc portlint::lint_main {args} {
</span> lint_required lint_optional replaced_by conflicts
set portarch [get_canonical_archs]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if (!$seen_portsystem) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {!$seen_portsystem} {
</span> ui_error "Didn't find PortSystem specification"
incr errors
} elseif {$portsystem != $lint_portsystem} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -359,7 +359,7 @@ proc portlint::lint_main {args} {
</span> ui_info "OK: Found PortSystem $portsystem"
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if ($seen_portgroup) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if {$seen_portgroup} {
</span> # Using a PortGroup is optional
foreach {portgroup portgroupversion} [array get portgroups] {
if {![file exists [getportresourcepath $porturl "port1.0/group/${portgroup}-${portgroupversion}.tcl"]]} {
</pre><pre style='margin:0'>
</pre>