From 022fe2c6f4cfde8f56942274f147b83ba2fa8734 Mon Sep 17 00:00:00 2001 From: Clemens Lang Date: Tue, 14 Apr 2026 22:15:04 +0200 Subject: [PATCH] registry2.0: Fix variable with Tcl 9 --- src/registry2.0/registry_util.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/registry2.0/registry_util.tcl b/src/registry2.0/registry_util.tcl index 1279e4e93..6b9d4d7f5 100644 --- a/src/registry2.0/registry_util.tcl +++ b/src/registry2.0/registry_util.tcl @@ -178,7 +178,7 @@ proc run_target {port target options} { ## Create and configure a tdbc connection to the registry proc tdbc_connect {args} { variable tdbc_connection - set reg_path [::file join ${macports::registry.path} registry registry.db] + set reg_path [::file join ${::macports::registry.path} registry registry.db] set tdbc_connection [tdbc::sqlite3::connection new $reg_path] trace remove variable tdbc_connection read registry::tdbc_connect set stmt [$tdbc_connection prepare {PRAGMA foreign_keys = ON}]