<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/148552e9613f648a6555d27d4716b241b61193ae">https://github.com/macports/macports-base/commit/148552e9613f648a6555d27d4716b241b61193ae</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 148552e9613f648a6555d27d4716b241b61193ae
</span>Author: umeshksingla <umeshksingla@macports.org>
AuthorDate: Sun Oct 13 16:52:45 2019 +0200

<span style='display:block; white-space:pre;color:#404040;'>    Add check for insufficient permissions
</span>---
 src/port/port.tcl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

<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 91520ad..9cce3bf 100755
</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;'>@@ -2797,18 +2797,27 @@ proc action_reclaim { action portlist opts } {
</span> }
 
 proc action_snapshot { action portlist opts } {
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[prefix_unwritable]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        return 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span>     if {[catch {macports::snapshot_main $opts} result]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        ui_debug $::errorInfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        ui_error $::errorInfo
</span>         return 1
     }
        return 0
 }
 
 proc action_restore { action portlist opts } {
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[prefix_unwritable]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        return 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span>     return [macports::restore_main $opts]
 }
 
 proc action_migrate { action portlist opts } {
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[prefix_unwritable]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        return 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span>     set result [macports::migrate_main $opts]
     if {$result == -999} {
         # MacPorts base was upgraded, re-execute migrate with the --continue flag
</pre><pre style='margin:0'>

</pre>