Ticket #671: portpackage.patch

src/port1.0/portpackage.tcl

@@ -56 +56 @@
 proc package_pkg {portname portversion portrevision} {
     global portdbpath destpath workpath prefix portresourcepath description package.destpath long_description homepage
 
+        # make sure package contains receipt file
+    if [string length [registry_exists $portname $portversion]] {
+                set rfile [registry_exists $portname $portversion]
+                if [string length $rfile] {
+                        file mkdir "${destpath}/[file dirname ${rfile}]"
+                        file copy -force $rfile "${destpath}/${rfile}"
+                }
+        }
+
     set resourcepath ${workpath}/pkg_resources
     # XXX: we need to support .lproj in resources.
     set pkgpath ${package.destpath}/${portname}-${portversion}.pkg
@@ -77 +86 @@
     system "cd ${destpath} && pax -x cpio -w -z . > ${pkgpath}/Contents/Archive.pax.gz"
 
     write_sizes_file ${pkgpath}/Contents/Resources/Archive.sizes ${portname} ${portversion} ${pkgpath} ${destpath}
+
+        # make sure to remove receipt from destpath when finished
+    if [file exists "${destpath}/${rfile}"] {
+                # remove receipt file
+                file delete "${destpath}/${rfile}"
+                # prune leftover empty directories
+                catch {system "find \"${destpath}\" -depth -type d -print | xargs rmdir 2>/dev/null"}
+        }
 
     return 0
 }