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

[perry at macports.org]

Revision: 49080
          http://trac.macports.org/changeset/49080
Author:   perry at macports.org
Date:     2009-04-03 00:48:00 -0700 (Fri, 03 Apr 2009)
Log Message:
-----------
macports1.0/macports.tcl:
Display a warning if more than one default port source is defined.

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

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2009-04-03 07:33:51 UTC (rev 49079)
+++ trunk/base/src/macports1.0/macports.tcl	2009-04-03 07:48:00 UTC (rev 49080)
@@ -423,6 +423,9 @@
                         ui_warn "$sources_conf source '$line' specifies invalid flag '$flag'"
                     }
                     if {$flag == "default"} {
+                        if {[info exists sources_default]} {
+                            ui_warn "More than one default port source is defined."
+                        }
                         set sources_default [concat [list $url] $flags]
                     }
                 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090403/cde89855/attachment.html>