<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/421501270cb7e381e946969abd0428c2c654b7f2">https://github.com/macports/macports-base/commit/421501270cb7e381e946969abd0428c2c654b7f2</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'>     new 42150127 Check for multiple inclusion of portgroups
</span>42150127 is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 421501270cb7e381e946969abd0428c2c654b7f2
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Wed Aug 24 02:24:18 2022 +1000

<span style='display:block; white-space:pre;color:#404040;'>    Check for multiple inclusion of portgroups
</span>---
 src/port1.0/portutil.tcl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/portutil.tcl b/src/port1.0/portutil.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 07405405..b710253f 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/portutil.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/portutil.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2604,6 +2604,23 @@ proc set_ui_prefix {} {
</span> proc PortGroup {group version} {
     global porturl PortInfo _portgroup_search_dirs subport
 
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[info exists PortInfo(portgroups)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set existing_list [lsearch -all -exact -index 0 -inline $PortInfo(portgroups) $group]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set should_return 0
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        foreach existing $existing_list {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set ex_vers [lindex $existing 1]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {$ex_vers eq $version} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                ui_debug "PortGroup $group $version included previously, not sourcing again"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set should_return 1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                ui_warn "PortGroup $group $version included, but version $ex_vers was included previously"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {$should_return} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span>     if {[info exists _portgroup_search_dirs]} {
         foreach dir $_portgroup_search_dirs {
             set groupFile ${dir}/${group}-${version}.tcl
</pre><pre style='margin:0'>

</pre>