Fix a file descriptor leak in the exclusive2 test script. (CVS 3871)

FossilOrigin-Name: 2d2e68da74459340c262a6454fdd05149bc94c59

manifest

@@ -1,5 +1,5 @@
-C Preparing\sfor\sthe\srelease\sof\s3.3.17.\s(CVS\s3870)
-D 2007-04-25T11:42:32
+C Fix\sa\sfile\sdescriptor\sleak\sin\sthe\sexclusive2\stest\sscript.\s(CVS\s3871)
+D 2007-04-25T12:06:59
 F Makefile.in 8cab54f7c9f5af8f22fd97ddf1ecfd1e1860de62
 F Makefile.linux-gcc 2d8574d1ba75f129aba2019f0b959db380a90935
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -205,7 +205,7 @@ F test/enc.test 7a03417a1051fe8bc6c7641cf4c8c3f7e0066d52
 F test/enc2.test 45710bacfa9df29720bc84c067dfdf8c8ddfb797
 F test/enc3.test 890508efff6677345e93bf2a8adb0489b30df030
 F test/exclusive.test 5bc520ba366ae3d242420af025ab64d465b04706
-F test/exclusive2.test 6ef76efd3b442c95819446f8d15e6a63a1e95a4e
+F test/exclusive2.test f9738964b01e0bc4d4e5e270e347ca162da51799
 F test/exclusive3.test 0e49c35b7e7cb8e7280b4ce3f0359d30b207d2ff
 F test/expr.test ab21e2fc3613595131efd7d8bbca4b95ed5cc608
 F test/filefmt.test 053b622009fbbb74dd37921ffad374d852c13cd8
@@ -461,7 +461,7 @@ F www/tclsqlite.tcl bb0d1357328a42b1993d78573e587c6dcbc964b9
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl fc46eae081251c3c181bd79c5faef8195d7991a5
-P 0935cdf82a0be599421881117a981d315933bb7e
-R 7707ddbcacbf0b04587c39b07aae695d
+P e278c4ef601eebeb5a4f89baf8b29a6794c403f1
+R ad363d72c9e972c93b0b5f5c7e1e7891
 U drh
-Z 247755edf232752633bb92ddd795a487
+Z 041345d6cc54720da9912c0e34152fab

manifest.uuid

@@ -1 +1 @@
-e278c4ef601eebeb5a4f89baf8b29a6794c403f1
+2d2e68da74459340c262a6454fdd05149bc94c59

test/exclusive2.test

@@ -10,7 +10,7 @@
 #***********************************************************************
 # This file implements regression tests for SQLite library.
 #
-# $Id: exclusive2.test,v 1.4 2007/04/16 15:02:20 drh Exp $
+# $Id: exclusive2.test,v 1.5 2007/04/25 12:06:59 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -161,6 +161,7 @@ do_test exclusive2-2.4 {
   seek $fd 1024
   puts -nonewline $fd [string repeat [binary format c 0] 10000]
   flush $fd
+  close $fd
   t1sig
 } $::sig