From 1ad9fd370c9994d6e3f62aa4f83ebcee5fbce552 Mon Sep 17 00:00:00 2001
From: Joshua Root <jmr@macports.org>
Date: Sat, 4 Jul 2026 21:24:37 +1000
Subject: [PATCH] Expose portstartupitem::loaded without portstartupitem_run

Closes: https://trac.macports.org/ticket/74185
---
 src/port1.0/portstartupitem.tcl     | 4 ++++
 src/port1.0/portstartupitem_run.tcl | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/port1.0/portstartupitem.tcl b/src/port1.0/portstartupitem.tcl
index 2f72358ee..94bde8602 100644
--- a/src/port1.0/portstartupitem.tcl
+++ b/src/port1.0/portstartupitem.tcl
@@ -5,6 +5,10 @@
 package provide portstartupitem 1.0
 
 namespace eval portstartupitem {
+    proc loaded {} {
+        package require portstartupitem_run
+        return [_loaded]
+    }
 }
 
 #   Newly added keys:
diff --git a/src/port1.0/portstartupitem_run.tcl b/src/port1.0/portstartupitem_run.tcl
index 19cf02a2e..95d3d4605 100644
--- a/src/port1.0/portstartupitem_run.tcl
+++ b/src/port1.0/portstartupitem_run.tcl
@@ -296,7 +296,7 @@ proc startupitem_create {} {
 
 # Check if this port's startupitems are loaded
 # Returns: list of loaded startupitems
-proc loaded {} {
+proc _loaded {} {
     set launchctl_path ${::portutil::autoconf::launchctl_path}
     if {$launchctl_path eq ""} {
         # assuming not loaded if there's no launchctl