[51502] branches/images-and-archives/base/src/port1.0/portimagefile.tcl

[blb at macports.org]

Revision: 51502
          http://trac.macports.org/changeset/51502
Author:   blb at macports.org
Date:     2009-05-26 19:05:41 -0700 (Tue, 26 May 2009)
Log Message:
-----------
Add license to +IMAGERECEIPT; make sure dependencies are actually registered

Modified Paths:
--------------
    branches/images-and-archives/base/src/port1.0/portimagefile.tcl

Modified: branches/images-and-archives/base/src/port1.0/portimagefile.tcl
===================================================================
--- branches/images-and-archives/base/src/port1.0/portimagefile.tcl	2009-05-27 01:53:50 UTC (rev 51501)
+++ branches/images-and-archives/base/src/port1.0/portimagefile.tcl	2009-05-27 02:05:41 UTC (rev 51502)
@@ -98,9 +98,9 @@
 proc portimagefile::create_image_receipt {imageworkpath} {
     global portname portversion portrevision portvariants epoch categories
     global homepage maintainers depends_run depends_lib prefix package-install
-    global description long_description destpath
+    global description long_description license destpath
     set fd [open [file join $imageworkpath "+IMAGERECEIPT"] w]
-    set variablelist {portname portversion portrevision portvariants epoch categories homepage maintainers depends_run depends_lib prefix package-install description long_description}
+    set variablelist {portname portversion portrevision portvariants epoch categories homepage maintainers depends_run depends_lib prefix package-install description long_description license}
     foreach onevar $variablelist {
         if {[info exists $onevar]} {
             puts $fd "$onevar [string map {\n \\n} [set $onevar]]"
@@ -188,6 +188,9 @@
                 continue
             }
             registry_prop_store $regref $propname $imagevars($propname)
+            if {[lsearch -exact {depends_run depends_lib} $propname] != -1} {
+               registry_register_deps $imagevars($propname) $imagevars(portname)
+            }
         }
         registry_write $regref
     } catch {* errorCode errorMessage } {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090526/d95bb0ea/attachment-0001.html>