fixed bug with empty responses

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 3383c8686dd6580600ab3a4780131a1cb9e39a02..f60e21ab205fe25931b8c091d43634a3210e6f30 100755 (executable)
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -207,6 +207,7 @@ sub requestdata {
         $size = $size * $obj->{repeat};
         }
       $o = trb_register_read_mem($netaddr,$obj->{address}+$offset,0,$size);
+      next unless defined $o;
       foreach my $k (keys $o) {
         for(my $i = 0; $i < $size; $i++) {
           $data->{$obj->{address}+$offset+$i}->{$k} = $o->{$k}->[$i];
@@ -224,6 +225,7 @@ sub requestdata {
     $slice = 0 unless defined $slice;
     do {
       $o = trb_register_read($netaddr,$obj->{address}+$slice*$stepsize);
+      next unless defined $o;
       foreach my $k (keys $o) {
         $data->{$obj->{address}}->{$k} = $o->{$k};
         }
@@ -314,6 +316,7 @@ sub runandprint {
     do {
     
       $o = trb_register_read($netaddr,$obj->{address}+$slice*$stepsize);
+      next unless defined $o;
       
       #### Prepare table header line
       my $t;