[69387] trunk/base/src/port/port.tcl

[jmr at macports.org]

Revision: 69387
          http://trac.macports.org/changeset/69387
Author:   jmr at macports.org
Date:     2010-07-02 21:08:23 -0700 (Fri, 02 Jul 2010)
Log Message:
-----------
have to explicitly write flat registry entries in action_setrequested

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-07-03 02:36:45 UTC (rev 69386)
+++ trunk/base/src/port/port.tcl	2010-07-03 04:08:23 UTC (rev 69387)
@@ -2407,6 +2407,7 @@
 
 
 proc action_setrequested { action portlist opts } {
+    global macports::registry.format
     set status 0
     if {[require_portlist portlist]} {
         return 1
@@ -2420,6 +2421,9 @@
             foreach i $ilist {
                 set regref [registry::open_entry $portname [lindex $i 1] [lindex $i 2] [lindex $i 3] [lindex $i 5]]
                 registry::property_store $regref requested $val
+                if {${macports::registry.format} != "receipt_sqlite"} {
+                    registry::write_entry $regref
+                }
             }
         } else {
             global errorInfo
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100702/5fa8dd21/attachment.html>