From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Fri, 25 Jul 2014 07:11:37 +0000 (+0200)
Subject: Improve error reporting of hadplot
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=f8b7b599a89c7df38d6d673c40c8e1221e817915;p=daqtools.git

Improve error reporting of hadplot
---

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++) {