[55318] branches/release_1_8

[jmr at macports.org]

Revision: 55318
          http://trac.macports.org/changeset/55318
Author:   jmr at macports.org
Date:     2009-08-08 19:51:05 -0700 (Sat, 08 Aug 2009)
Log Message:
-----------
merge r55317 from trunk:
 avoid erroring out on ports that have no version set in action_outdated

Modified Paths:
--------------
    branches/release_1_8/base/src/port/port.tcl

Property Changed:
----------------
    branches/release_1_8/
    branches/release_1_8/base/


Property changes on: branches/release_1_8
___________________________________________________________________
Modified: svn:mergeinfo
   - /trunk:55268,55279,55281,55285
   + /trunk:55268,55279,55281,55285,55317


Property changes on: branches/release_1_8/base
___________________________________________________________________
Modified: svn:mergeinfo
   - /branches/gsoc08-privileges/base:37343-46937
/branches/universal-sanity/base:51872-52323
/branches/variant-descs-14482/base:34469-34855,34900-37508,37511-37512,41040-41463,42575-42626,42640-42659
/trunk/base:55268,55279,55281,55285
/users/perry/base-bugs_and_notes:45682-46060
/users/perry/base-select:44044-44692
   + /branches/gsoc08-privileges/base:37343-46937
/branches/universal-sanity/base:51872-52323
/branches/variant-descs-14482/base:34469-34855,34900-37508,37511-37512,41040-41463,42575-42626,42640-42659
/trunk/base:55268,55279,55281,55285,55317
/users/perry/base-bugs_and_notes:45682-46060
/users/perry/base-select:44044-44692

Modified: branches/release_1_8/base/src/port/port.tcl
===================================================================
--- branches/release_1_8/base/src/port/port.tcl	2009-08-09 02:49:15 UTC (rev 55317)
+++ branches/release_1_8/base/src/port/port.tcl	2009-08-09 02:51:05 UTC (rev 55318)
@@ -2259,6 +2259,10 @@
             array set portinfo [lindex $res 1]
             
             # Get information about latest available version and revision
+            if {![info exists portinfo(version)]} {
+                ui_warn "$portname has no version field"
+                continue
+            }
             set latest_version $portinfo(version)
             set latest_revision 0
             if {[info exists portinfo(revision)] && $portinfo(revision) > 0} { 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090808/ff66f27e/attachment.html>