diff options
| author | dan <Dan Kennedy> | 2025-02-25 13:33:43 +0000 |
|---|---|---|
| committer | dan <Dan Kennedy> | 2025-02-25 13:33:43 +0000 |
| commit | 18d9b12e9021658deff26acc6614d8708dcba464 (patch) | |
| tree | 7c629a3fcb2cf6392c1342af738d8090935d8f7b /test | |
| parent | 17b620eb6017f3b54b7cc3353289c2149323f522 (diff) | |
| download | sqlite-18d9b12e9021658deff26acc6614d8708dcba464.tar.gz sqlite-18d9b12e9021658deff26acc6614d8708dcba464.zip | |
Fix a test script problem causing errors with Tcl 9.
FossilOrigin-Name: dbec2c47d09027f2458036f675c8af3f8f152c0530799582eeac231649eba501
Diffstat (limited to 'test')
| -rw-r--r-- | test/lock_common.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lock_common.tcl b/test/lock_common.tcl index 9504a8c04..7c79e4b4c 100644 --- a/test/lock_common.tcl +++ b/test/lock_common.tcl @@ -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 |