From f8b7b599a89c7df38d6d673c40c8e1221e817915 Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Fri, 25 Jul 2014 09:11:37 +0200
Subject: [PATCH] Improve error reporting of hadplot

---
 tools/hadplot | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/tools/hadplot b/tools/hadplot
index 0987a72..dc6da35 100755
--- a/tools/hadplot
+++ b/tools/hadplot
@@ -746,18 +746,17 @@ sub genreg {
     }
   plot_write(""); 
 
-
   while(1) {
     for(my $i = 0; $i<scalar(@{$address});$i++) {
       my $c;
       if (!(defined $regamount->[$i]) || $regamount->[$i] == 1) {
-        $c = trb_register_read(($address->[$i]),($register->[$i]));
-        foreach my $s (keys $c) {
+        $c = trb_register_read(($address->[$i]),($register->[$i])) or die trb_strerror();
+        foreach my $s (keys %$c) {
           $c->{$s}=[$c->{$s}];
           }
         }
       else {
-        $c = trb_register_read_mem(($address->[$i]),($register->[$i]),$fifomode->[$i],$regamount->[$i]);
+        $c = trb_register_read_mem(($address->[$i]),($register->[$i]),$fifomode->[$i],$regamount->[$i]) or die trb_strerror();
         }
       foreach my $s (sort keys $c) {
         for(my $r = 0; $r < scalar @{$c->{$s}};$r++) {
-- 
2.43.0