[51138] trunk/base/src/registry1.0/receipt_flat.tcl

[jmr at macports.org]

Revision: 51138
          http://trac.macports.org/changeset/51138
Author:   jmr at macports.org
Date:     2009-05-18 23:01:34 -0700 (Mon, 18 May 2009)
Log Message:
-----------
don't report ports as installed when there is a receipt directory but no receipt

Modified Paths:
--------------
    trunk/base/src/registry1.0/receipt_flat.tcl

Modified: trunk/base/src/registry1.0/receipt_flat.tcl
===================================================================
--- trunk/base/src/registry1.0/receipt_flat.tcl	2009-05-19 04:53:35 UTC (rev 51137)
+++ trunk/base/src/registry1.0/receipt_flat.tcl	2009-05-19 06:01:34 UTC (rev 51138)
@@ -484,6 +484,9 @@
 	set x [glob -nocomplain -types d ${query_path}]
 	set rlist [list]
 	foreach p $x {
+		if {![file isfile [file join $p receipt.bz2]] && ![file isfile [file join $p receipt]]} {
+			continue
+		}
 		set plist [list]
 		regexp {([-_a-zA-Z0-9\.]+)_([0-9]*)([+-_a-zA-Z0-9]*)$} [lindex [file split $p] end] match version revision variants
 		lappend plist [lindex [file split $p] end-1]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090518/d1d0e853/attachment.html>