database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Close the file handle before returning. TCL test script issue only.

Browse Source 
FossilOrigin-Name: f4076d8567243174c023b7aa7ae9ca7f8f73e33b
This commit is contained in:
shaneh
2010-07-07 15:41:55 +00:00
parent cce1b689f4
commit 538fa0b716
3 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
test/wal_common.tcl
View File

@ -73,6 +73,7 @@ proc wal_set_walhdr {filename {intlist {}}} {
fconfigure $fd -translation binary
fconfigure $fd -encoding binary
set blob [read $fd 24]
close $fd
binary scan $blob I6 ints
set ints