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 problem with the previous change to malloc_common.tcl.

Browse Source 
FossilOrigin-Name: e07a33ea0fd50d56f2d00965c754e652c48f32fb
This commit is contained in:
dan
2010-09-16 15:58:12 +00:00
parent d78fe8e380
commit 5ac9a18ced
3 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
test/tester.tcl
View File

@ -611,9 +611,10 @@ proc forcedelete {filename} {
#
set nRetry 50 ;# Maximum number of retries.
set nDelay 100 ;# Delay in ms before retrying.
set rc 1
for {set i 0} {$i<$nRetry && $rc} {incr i} {
for {set i 0} {$i<$nRetry} {incr i} {
set rc [catch {file delete -force $filename} msg]
if {$rc==0} continue
after $nDelay
}
if {$rc} { error $msg }
}