From 6f1cec17d53c026a63e38e650660112feee81481 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@bitwiz.org.uk>
Date: Sun, 31 Oct 2010 15:58:05 +0100
Subject: Make scripts/check-near-bragg less annoying

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

(limited to 'scripts/check-near-bragg')

diff --git a/scripts/check-near-bragg b/scripts/check-near-bragg
index 9b72c0cb..28347831 100755
--- a/scripts/check-near-bragg
+++ b/scripts/check-near-bragg
@@ -26,6 +26,7 @@ while ( $line = <FH> ) {
 	if ( $line =~ /^Peak statistics/ ) {
 		close(TMP);
 		system("hdfsee ".$filename." --peak-overlay=list.tmp --binning=1 --int-boost=10");
+		if ( $? != 0 ) { exit; }
 		unlink("list.tmp");
 		open(TMP, "> list.tmp");
 		$handled = 1;
-- 
cgit v1.2.3