From 0af50116694bc7d5a1eb72d2e3742374fc3c5c72 Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Wed, 21 May 2014 11:00:47 +0200
Subject: [PATCH] Minor improvement in get.pl

---
 xml-db/get.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 925ed86..6fd4fc9 100755
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -338,14 +338,13 @@ sub register_read {
   my ($netaddr, $regaddr) = @_;
   for($db->{'§EntityType'}) {
     when ("TrbNetEntity")  {
-      $o =  convert_keys_to_hex(trb_register_read($netaddr, $regaddr));
+      return convert_keys_to_hex(trb_register_read($netaddr, $regaddr));
     }
     when ("SpiEntity") {
-      $o = spi_register_read($netaddr, $regaddr);
+      return spi_register_read($netaddr, $regaddr);
     }
     default {die "EntityType not recognized";}
   }
-  return $o;
 }
 
 sub register_read_mem {
@@ -397,6 +396,7 @@ sub spi_register_read {
     trb_register_write_mem($netaddr,0xd400,0,$c,scalar @{$c});
     usleep(1000);
     my $res = trb_register_read($netaddr,0xd412);
+    next unless defined $res;
     foreach my $board (keys %$res) {
       my $b = sprintf('%04x:%d', $board, $chain);
       $o->{$b} = $res->{$board};
-- 
2.43.0