<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/843b58f3f65213e98ba0705f0c93e1ed76908f0d">https://github.com/macports/macports-base/commit/843b58f3f65213e98ba0705f0c93e1ed76908f0d</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 843b58f Update deprecated variable trace syntax
</span>843b58f is described below
<span style='display:block; white-space:pre;color:#808000;'>commit 843b58f3f65213e98ba0705f0c93e1ed76908f0d
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Mon Jun 4 11:44:49 2018 +1000
<span style='display:block; white-space:pre;color:#404040;'> Update deprecated variable trace syntax
</span>---
src/port1.0/portutil.tcl | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/portutil.tcl b/src/port1.0/portutil.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 706c315..bff41cd 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/portutil.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/portutil.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -472,7 +472,7 @@ proc default {option val} {
</span> if {[info exists option_defaults($option)]} {
ui_debug "Re-registering default for $option"
# remove the old trace
<span style='display:block; white-space:pre;background:#ffe0e0;'>- trace vdelete $option rwu default_check
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ trace remove variable $option {read write unset} default_check
</span> } else {
# If option is already set and we did not set it
# do not reset the value
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -482,7 +482,7 @@ proc default {option val} {
</span> }
set option_defaults($option) $val
set $option $val
<span style='display:block; white-space:pre;background:#ffe0e0;'>- trace variable $option rwu default_check
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ trace add variable $option {read write unset} default_check
</span> }
# default_check
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -491,19 +491,19 @@ proc default {option val} {
</span> proc default_check {optionName index op} {
global option_defaults $optionName
switch $op {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- w {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ write {
</span> unset option_defaults($optionName)
<span style='display:block; white-space:pre;background:#ffe0e0;'>- trace vdelete $optionName rwu default_check
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ trace remove variable $optionName {read write unset} default_check
</span> return
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- r {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ read {
</span> upvar $optionName option
uplevel #0 set $optionName $option_defaults($optionName)
return
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- u {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ unset {
</span> unset option_defaults($optionName)
<span style='display:block; white-space:pre;background:#ffe0e0;'>- trace vdelete $optionName rwu default_check
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ trace remove variable $optionName {read write unset} default_check
</span> return
}
}
</pre><pre style='margin:0'>
</pre>