From c5311b8e7a3f38c0fcaf16f25a38fa9339e5eee8 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 14 Dec 2014 08:41:25 +0100
Subject: Fix chekc-near-bragg (again)

---
 scripts/check-near-bragg | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'scripts')

diff --git a/scripts/check-near-bragg b/scripts/check-near-bragg
index 10a7549b..4077c6e2 100755
--- a/scripts/check-near-bragg
+++ b/scripts/check-near-bragg
@@ -39,6 +39,10 @@ while ( $line = <FH> ) {
 		$handled = 1;
 	}
 
+	if ( $line =~ /^Event:\ (.+)$/ ) {
+		$event = $1;
+	}
+
 	if ( $line =~ /^End\ of\ reflections$/ ) {
 
 		close(TMP);
-- 
cgit v1.2.3