SICS-776 Close the anti-collider file

2014-09-12 10:35:33 +10:00
parent 00f4dfe588
commit e8ec81ad5d
1 changed files with 11 additions and 6 deletions
--- a/site_ansto/instrument/config/anticollider/anticollider_common.tcl
+++ b/site_ansto/instrument/config/anticollider/anticollider_common.tcl
@ -45,6 +45,7 @@ proc handle_acscript_exception {status message args} {
 proc ::anticollider::loadscript {args} {
  variable veto_rules

+  catch {
    set fh [open $::cfPath(anticollider)/[lindex $args 0] RDONLY ]
    while {[gets $fh line] >= 0} {
      # Skip empty lines and comments
@ -53,6 +54,10 @@ proc ::anticollider::loadscript {args} {
      }
      lappend veto_rules $line
    }
+  }
+  catch {
+    close $fh
+  }
 }

 ##