<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/6c8c70b370753b9015400b27afdcd303b7a0cb63">https://github.com/macports/macports-base/commit/6c8c70b370753b9015400b27afdcd303b7a0cb63</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 6c8c70b  Fix sometimes leaving orphaned Portfiles in the registry
</span>6c8c70b is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 6c8c70b370753b9015400b27afdcd303b7a0cb63
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Fri Jul 14 01:49:32 2017 +1000

<span style='display:block; white-space:pre;color:#404040;'>    Fix sometimes leaving orphaned Portfiles in the registry
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Portfiles are stored per subport,version,revision as there is no field
</span><span style='display:block; white-space:pre;color:#404040;'>    in the registry for the name shared between subports. Therefore, before
</span><span style='display:block; white-space:pre;color:#404040;'>    deleting a Portfile, we need to check only that the same subport is not
</span><span style='display:block; white-space:pre;color:#404040;'>    installed with different variants from an identical Portfile, not
</span><span style='display:block; white-space:pre;color:#404040;'>    whether *anything* else has an identical Portfile, since we can only
</span><span style='display:block; white-space:pre;color:#404040;'>    delete the one for this particular subport.
</span>---
 src/registry2.0/portuninstall.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/portuninstall.tcl b/src/registry2.0/portuninstall.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index e1ad2fe..8133de4 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/portuninstall.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/portuninstall.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -267,7 +267,7 @@ proc uninstall {portname {version ""} {revision ""} {variants 0} {optionslist ""
</span>         }
 
         set portfile_path [file join ${registry.path} registry portfiles ${portname}-${version}_${revision} $portfile]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {[registry::entry search portfile $portfile] eq {}} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[registry::entry search portfile $portfile name $portname version $version revision $revision] eq {}} {
</span>             file delete -force $portfile_path
             catch {file delete [file dirname $portfile_path]}
         }
</pre><pre style='margin:0'>

</pre>