From 001a3d1aa4de6d7206fd0955488e748173f3fd3c Mon Sep 17 00:00:00 2001
From: Jim <black.belt.jimmy@gmail.com>
Date: Thu, 30 Jul 2015 12:58:27 -0700
Subject: [PATCH] fix filehandle leak in fileblock.yab

---
 yab-IDE/Programs/libs/fileblock.yab | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/yab-IDE/Programs/libs/fileblock.yab b/yab-IDE/Programs/libs/fileblock.yab
index 70c084c..7791e3c 100644
--- a/yab-IDE/Programs/libs/fileblock.yab
+++ b/yab-IDE/Programs/libs/fileblock.yab
@@ -1,19 +1,18 @@
 
 
-export sub openfile(filename$, recordlength, numberoffields)
+export sub openfile(fil$, recordlength, numberoffields)
 // specify the record(block) length and number of fields for the file
 // returns the filehandle number used for other subs
 static numfiles
 local x
-
-x=open(filename$, "a")
+x=open(fil$, "a")
 if x=0  print"rror opening the file":return -1 // error opening the file
 close x
 
 numfiles=numfiles+1
 dim f$(numfiles,50,2) // f$(numfile,1-50=fieldname$
 dim f(numfiles,52)
-f$(numfiles,0,0)=filename$
+f$(numfiles,0,0)=fil$
 f(numfiles,51)=recordlength
 f(numfiles,52)=numberoffields
 
@@ -182,6 +181,7 @@ local a$
 local z
 local y
 a$=""
+local File
 
 filename$=f$(filehandle,0,0)
 File=open(filename$, "rb")
@@ -209,6 +209,7 @@ for y=0 to f(filehandle,52)
 next
 
 rec=rec+1
+close File
 return rec
 
 end sub
@@ -225,6 +226,7 @@ ret=tell(#x)
 if ret=0 return ret
 ret= ret/(f(filehandle,51)+1)
 ret=int(ret)
+close x
 return ret
 
 end sub