[69388] branches/release_1_9/base/src/port/port.tcl

[jmr at macports.org]

Revision: 69388
          http://trac.macports.org/changeset/69388
Author:   jmr at macports.org
Date:     2010-07-02 21:36:27 -0700 (Fri, 02 Jul 2010)
Log Message:
-----------
merge r69387 from trunk:
 have to explicitly write flat registry entries in action_setrequested

Revision Links:
--------------
    http://trac.macports.org/changeset/69387

Modified Paths:
--------------
    branches/release_1_9/base/src/port/port.tcl

Modified: branches/release_1_9/base/src/port/port.tcl
===================================================================
--- branches/release_1_9/base/src/port/port.tcl	2010-07-03 04:08:23 UTC (rev 69387)
+++ branches/release_1_9/base/src/port/port.tcl	2010-07-03 04:36:27 UTC (rev 69388)
@@ -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/6edc1a7f/attachment.html>