registry2.0: Fix variable with Tcl 9

This commit is contained in:
Clemens Lang
2026-04-14 22:15:04 +02:00
parent 2af99c0cfe
commit 022fe2c6f4
+1 -1
View File
@@ -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}]