database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Fix a test script problem causing errors with Tcl 9.

Browse Source 
FossilOrigin-Name: dbec2c47d09027f2458036f675c8af3f8f152c0530799582eeac231649eba501
This commit is contained in:
dan
2025-02-25 13:33:43 +00:00
parent 17b620eb60
commit 18d9b12e90
3 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
test/lock_common.tcl
View File

@ -145,7 +145,7 @@ proc testfixture_nb_cb {varname chan} {
}
if { $line == "OVER" } {
global $varname
if {[string range $varname 0 1]!="::"} { global $varname }
set $varname [lindex $::tfnb($chan) 1]
unset ::tfnb($chan)
close $chan