From da781de65717b0529181e9c769b5814bf7af3c1c Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Thu, 20 Feb 2014 16:44:13 +1100
Subject: [PATCH] The anticollider proximity_script should not raise an error
 if no proximity_rules have been defined.

---
 .../instrument/bilby/config/anticollider/anticollider.tcl    | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/site_ansto/instrument/bilby/config/anticollider/anticollider.tcl b/site_ansto/instrument/bilby/config/anticollider/anticollider.tcl
index bc3c30af..aad90bb9 100644
--- a/site_ansto/instrument/bilby/config/anticollider/anticollider.tcl
+++ b/site_ansto/instrument/bilby/config/anticollider/anticollider.tcl
@@ -58,6 +58,11 @@ namespace eval ::anticollider {
     set catch_status [ catch {
       variable proximity_rules
 
+      if {[info exists proximity_rules] == 0} {
+        return
+      } elseif {[len $proximity_rules] == 0} {
+        return
+      }
       foreach {m1 m2 mdist} $proximity_rules {
         set final($m1) [SplitReply [$m1]]
         set final($m2) [SplitReply [$m2]]