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

Further tweaks related to deleting files from malloc_common.tcl.

Browse Source 
FossilOrigin-Name: 3e649f80e2a1b2e098f6ca32994ba40157271e69
This commit is contained in:
dan
2010-09-16 16:16:07 +00:00
parent 5ac9a18ced
commit 782f51bf3f
3 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
test/tester.tcl
View File

@ -613,7 +613,7 @@ proc forcedelete {filename} {
set nDelay 100 ;# Delay in ms before retrying.
for {set i 0} {$i<$nRetry} {incr i} {
set rc [catch {file delete -force $filename} msg]
if {$rc==0} continue
if {$rc==0} break
after $nDelay
}
if {$rc} { error $msg }