[37512] branches/variant-descs-14482/base/src/port1.0/portutil.tcl

[raimue at macports.org]

Revision: 37512
          http://trac.macosforge.org/projects/macports/changeset/37512
Author:   raimue at macports.org
Date:     2008-06-10 08:27:48 -0700 (Tue, 10 Jun 2008)

Log Message:
-----------
port1.0/portutil.tcl:
Add a warning if global variant description file could not be opened

Modified Paths:
--------------
    branches/variant-descs-14482/base/src/port1.0/portutil.tcl

Modified: branches/variant-descs-14482/base/src/port1.0/portutil.tcl
===================================================================
--- branches/variant-descs-14482/base/src/port1.0/portutil.tcl	2008-06-10 15:22:12 UTC (rev 37511)
+++ branches/variant-descs-14482/base/src/port1.0/portutil.tcl	2008-06-10 15:27:48 UTC (rev 37512)
@@ -564,7 +564,10 @@
         set variant_descs_global($sourceconfigdir) yes
 
         if {[file exists $descfile]} {
-            set fd [open $descfile r]
+            if {[catch {set fd [open $descfile r]} err]} {
+                ui_warn "Could not open global variant description file: $err"
+                return ""
+            }
             set lineno 0
             while {[gets $fd line] >= 0} {
                 incr lineno

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080610/f81bec64/attachment.htm