<pre style='margin:0'>
Umesh Singla (umeshksingla) pushed a commit to branch gsoc17-migrate
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/953dc683aea654e0ca2d4beb481bb1444818bb19">https://github.com/macports/macports-base/commit/953dc683aea654e0ca2d4beb481bb1444818bb19</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 953dc683aea654e0ca2d4beb481bb1444818bb19
</span>Author: umeshksingla <umeshksingla@macports.org>
AuthorDate: Tue Oct 15 19:49:22 2019 +0200

<span style='display:block; white-space:pre;color:#404040;'>    Set requested flag after restoring ports
</span>---
 src/macports1.0/restore.tcl | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/restore.tcl b/src/macports1.0/restore.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 8127d90..8c868be 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/restore.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/restore.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -176,6 +176,7 @@ namespace eval restore {
</span>         foreach port $portlist {
 
             set name [lindex $port 0]
<span style='display:block; white-space:pre;background:#e0ffe0;'>+            set requested [lindex $port 1]
</span>             set active 0
             if {[lindex $port 2] eq "installed"} {
                 set active 1
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -214,7 +215,7 @@ namespace eval restore {
</span>             if {![info exists port_deps(${name},${variants})]} {
                 set port_deps(${name},${variants}) [sort_portlist_dependencies_first_helper $name $variants]
             }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            lappend new_list [list $name $variants $active]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            lappend new_list [list $name $requested $variants $active]
</span>         }
 
         set operation_list [list]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -222,7 +223,7 @@ namespace eval restore {
</span> 
             set oldLen [llength $new_list]
             foreach port $new_list {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                foreach {name variants active} $port break
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                foreach {name requested variants active} $port break
</span> 
                 # Ensure active versions are installed after inactive versions.
                 # Skip this port if it is active and all the inactive versions have
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -238,9 +239,9 @@ namespace eval restore {
</span>                     }
                 }
                 if {$installable} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                    lappend operation_list [list $name $variants $active]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    lappend operation_list [list $name $requested $variants $active]
</span>                     incr port_installed($name)
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                    set index [lsearch $new_list [list $name $variants $active]]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    set index [lsearch $new_list [list $name $requested $variants $active]]
</span>                     set new_list [lreplace $new_list $index $index]
                 }
             }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -300,19 +301,19 @@ namespace eval restore {
</span> 
         set sorted_snapshot_portlist [sort_portlist_dependencies_first $snapshot_portlist]
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        puts $sorted_snapshot_portlist
</span>         foreach port $sorted_snapshot_portlist {
 
             set name [string trim [lindex $port 0]]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            set variations [lindex $port 1]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set active [lindex $port 2]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set requested [lindex $port 1]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set variants [lindex $port 2]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set active [lindex $port 3]
</span> 
             if {!$active} {
                 set target install
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                ui_msg "Installing (not activating): $name $variations"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                ui_msg "Installing (not activating): $name $variants $requested"
</span>             } else {
                 set target activate
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                ui_msg "Installing (and activating): $name $variations"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                ui_msg "Installing (and activating): $name $variants $requested"
</span>             }
 
             if {[catch {set res [mportlookup $name]} result]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -328,10 +329,10 @@ namespace eval restore {
</span>             array set portinfo [lindex $res 1]
             set porturl $portinfo(porturl)
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            set options(ports_requested) 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set options(ports_requested) $requested
</span>             set options(subport) $portinfo(name)
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            if {[catch {set workername [mportopen $porturl [array get options] $variations]} result]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {[catch {set workername [mportopen $porturl [array get options] $variants]} result]} {
</span>                 global errorInfo
                 puts stderr "$errorInfo"
                 return -code error "Unable to open port '$name': $result"
</pre><pre style='margin:0'>

</pre>