[42747] trunk/base/src/macports1.0/macports.tcl

[simon at macports.org]

Revision: 42747
          http://trac.macports.org/changeset/42747
Author:   simon at macports.org
Date:     2008-11-30 07:20:02 -0800 (Sun, 30 Nov 2008)
Log Message:
-----------
base/src: Make sure the default port source is specified.

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2008-11-30 15:01:19 UTC (rev 42746)
+++ trunk/base/src/macports1.0/macports.tcl	2008-11-30 15:20:02 UTC (rev 42747)
@@ -432,6 +432,13 @@
             }
         }
     }
+    # Make sure the default port source is defined. Otherwise
+    # [macports::getportresourcepath] fails when the first source doesn't
+    # contain _resources.
+    if {![info exists sources_default]} {
+        return -code error "No default port source specified in $sources_conf"
+    }
+
     if {![info exists sources]} {
         if {[file isdirectory ports]} {
             set sources "file://[pwd]/ports"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20081130/b8abc28e/attachment.html>