[54017] trunk/base/src/port1.0/portutil.tcl

[raimue at macports.org]

Revision: 54017
          http://trac.macports.org/changeset/54017
Author:   raimue at macports.org
Date:     2009-07-18 18:10:36 -0700 (Sat, 18 Jul 2009)
Log Message:
-----------
port1.0/portutil.tcl:
As addition to r54002, do not compare variants if the statefile is empty, like
on a fresh install.

Modified Paths:
--------------
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2009-07-18 23:02:34 UTC (rev 54016)
+++ trunk/base/src/port1.0/portutil.tcl	2009-07-19 01:10:36 UTC (rev 54017)
@@ -1637,6 +1637,12 @@
 
     array set oldvariations {}
 
+    seek $fd 0 end
+    if {[tell $fd] == 0} {
+        # Statefile is empty, skipping further tests
+        return 0
+    }
+
     seek $fd 0
     while {[gets $fd line] >= 0} {
         if {[regexp "variant: (.*)" $line match name]} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090718/472abee7/attachment-0001.html>