From 96520f22738465a4427f32cce9a773c3fd393bdc Mon Sep 17 00:00:00 2001
From: Joshua Root <jmr@macports.org>
Date: Fri, 16 Aug 2024 14:29:45 +1000
Subject: [PATCH] opComplement: handle empty b list

---
 src/portlist1.0/portlist.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/portlist1.0/portlist.tcl b/src/portlist1.0/portlist.tcl
index 1a217f55d7..03b030be9b 100644
--- a/src/portlist1.0/portlist.tcl
+++ b/src/portlist1.0/portlist.tcl
@@ -275,6 +275,7 @@ proc portlist::opComplement {a b} {
     # Top level keys are normalised port names.
     # Second level is a dict mapping fully discriminated names (to empty
     # strings since we don't need the full entries from b.)
+    set bdict [dict create]
     foreach bitem $b {
         dict set bdict [string tolower [dict get $bitem name]] [dict get $bitem fullname] ""
     }