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

FossilOrigin-Name: f4076d8567243174c023b7aa7ae9ca7f8f73e33b

diff --git a/manifest b/manifest
index 44aa258f21c68bafe8186900ccd68c44556bcf68..507f381fccf274473195fbb52b36d6b99e2b5155 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Fixed\sa\snew\serror\sintroduced\sby\slast\scheck-in\sof\sos_win.c.\s\sUpdated\sxAccess()\sto\ssupport\sSimulateIOError().
-D 2010-07-07T14:45:41
+C Close\sthe\sfile\shandle\sbefore\sreturning.\s\sTCL\stest\sscript\sissue\sonly.
+D 2010-07-07T15:41:56
 F Makefile.arm-wince-mingw32ce-gcc fcd5e9cd67fe88836360bb4f9ef4cb7f8e2fb5a0
 F Makefile.in c4270a1cd7cd70a263b7e96a258aa90e9c3618eb
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -777,7 +777,7 @@ F test/wal.test 1891e6f72dd437a1c2a48091aa9182ba17a8f780
 F test/wal2.test f4e96e3b793cdc20a45031d3f1173e67f6cc44ec
 F test/wal3.test d2ae7e66f973bd6b58ce49e546b2c00f44fe0485
 F test/wal4.test 640be93f5422df37203aa5e7c06b24fb5e4a2439
-F test/wal_common.tcl 875ee2118cd7b292ba22fb9bfa66a984b5226b13
+F test/wal_common.tcl 895d76138043b86bdccf36494054bdabcf65837b
 F test/walbak.test 4df1c7369da0301caeb9a48fa45997fd592380e4
 F test/walbig.test e882bc1d014afffbfa2b6ba36e0f07d30a633ad0
 F test/walcksum.test a37b36375c595e61bdb7e1ec49b5f0979b6fc7ce
@@ -831,7 +831,7 @@ F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224
 F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
 F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f
-P 16e18f2706e67210eae62edfb748758fd27f23d7
-R d81fca8d8b056aaa15f611129fe0dbdb
+P 8eefc287265443ec043bdab629597e79c9d22006
+R 2e58f8920f121373055c521fad88b101
 U shaneh
-Z 3e0443c5ff4e51b41a4bec6a0360e8b4
+Z da48c113bd9ab0797a611da948cdf8b0

diff --git a/manifest.uuid b/manifest.uuid
index d55c3b3b4ec1c617aac1f26a8789719011e04b11..8bf82f545c3c1d68074de8d36cfc60416c13c376 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-8eefc287265443ec043bdab629597e79c9d22006
\ No newline at end of file
+f4076d8567243174c023b7aa7ae9ca7f8f73e33b
\ No newline at end of file

diff --git a/test/wal_common.tcl b/test/wal_common.tcl
index 6e42c447b1b082954fade8b15476c3dbdc5970b9..a5b165d5ec70b7779d5cf203f26a9041dab4254f 100644 (file)
--- a/test/wal_common.tcl
+++ b/test/wal_common.tcl
@@ -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