[66871] trunk/base/src/port/portindex.tcl

[jmr at macports.org]

Revision: 66871
          http://trac.macports.org/changeset/66871
Author:   jmr at macports.org
Date:     2010-04-24 08:54:51 -0700 (Sat, 24 Apr 2010)
Log Message:
-----------
fix portindex stats

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

Modified: trunk/base/src/port/portindex.tcl
===================================================================
--- trunk/base/src/port/portindex.tcl	2010-04-24 15:47:45 UTC (rev 66870)
+++ trunk/base/src/port/portindex.tcl	2010-04-24 15:54:51 UTC (rev 66871)
@@ -70,6 +70,7 @@
         }
     }
 
+    incr stats(total)
     if {[catch {set interp [mportopen file://[file join $directory $portdir] $port_options]} result]} {
         puts stderr "Failed to parse file $portdir/Portfile: $result"
         # revert the prefix.
@@ -110,7 +111,6 @@
         set len [expr [string length $output] + 1]
         puts $fd [list $portinfo(name) $len]
         puts $fd $output
-        incr stats(total)
     }
 }
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100424/b185149c/attachment.html>