[64272] trunk/base/src/registry2.0/portuninstall.tcl

[jmr at macports.org]

Revision: 64272
          http://trac.macports.org/changeset/64272
Author:   jmr at macports.org
Date:     2010-02-27 19:28:49 -0800 (Sat, 27 Feb 2010)
Log Message:
-----------
fix reg2 uninstall

Modified Paths:
--------------
    trunk/base/src/registry2.0/portuninstall.tcl

Modified: trunk/base/src/registry2.0/portuninstall.tcl
===================================================================
--- trunk/base/src/registry2.0/portuninstall.tcl	2010-02-28 02:58:08 UTC (rev 64271)
+++ trunk/base/src/registry2.0/portuninstall.tcl	2010-02-28 03:28:49 UTC (rev 64272)
@@ -109,7 +109,6 @@
     } elseif { [llength $ilist] == 1 } {
         if {$use_reg2} {
             set port [lindex $ilist 0]
-            ui_debug "$port exists? [registry::entry exists $port]"
             if {$v == ""} {
                 set v "[$port version]_[$port revision][$port variants]"
             }
@@ -259,7 +258,10 @@
     foreach f $contents {
         if {$use_reg2} {
             set fname "${imagedir}${f}"
-            set sum1 [$port md5sum $f]
+            #set sum1 [$port md5sum $f]
+            # there's an md5 column in registry.files in the db, but
+            # no way to get or set it seems to be implemented
+            set sum1 NONE
         } else {
             set fname [lindex $f 0]
             set md5index [lsearch -regex [lrange $f 1 end] MD5]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100227/9ca689dc/attachment.html>