From: Jan Michel <j.michel@gsi.de>
Date: Fri, 26 Feb 2021 13:19:22 +0000 (+0100)
Subject: fix parantheses
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=dc2afbd3ea33990d902b03761882da1a59fd2042;p=daqtools.git

fix parantheses
---

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 69ac8b0..c4bea9e 100755
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -14,7 +14,7 @@ use if (!defined $ENV{'QUERY_STRING'}), Getopt::Long;
 no warnings 'experimental::smartmatch';
 
 # use Data::TreeDumper;
-use Data::Dumper;
+# use Data::Dumper;
 my ($db,$data,$once,$slice);
 my $help = 0;
 my $verbose = 0;
@@ -324,7 +324,7 @@ sub requestdata {
       my $stepsize = $obj->{stepsize} || 1;
       my $size   = $obj->{size};
       $slice = $slice || 0;
-      do{
+      do{{
         $o = register_read_mem($netaddr,$obj->{address}+$slice*$stepsize,0,$size*($obj->{repeat}//1));
         next unless defined $o;
         foreach my $k (keys %$o) {
@@ -332,7 +332,7 @@ sub requestdata {
             $data->{$obj->{address}+$slice*$stepsize+$i}->{$k} = $o->{$k}->[$i];
           }
         }
-      } while (!$once && defined $obj->{repeat} && ++$slice < $obj->{repeat});
+      }} while (!$once && defined $obj->{repeat} && ++$slice < $obj->{repeat});
     } else {
       foreach my $c (@{$obj->{children}}) {
         requestdata($db->{$c},$c,$slice);
@@ -341,13 +341,13 @@ sub requestdata {
   } elsif ($obj->{type} =~ /^(register|field|registerfield)$/) { # matches register, registerfield, field
     my $stepsize = $obj->{stepsize} || 1;
     $slice = 0 unless defined $slice;
-    do {
+    do {{
       $o = register_read($netaddr,$obj->{address}+$slice*$stepsize);
       next unless defined $o;
       foreach my $k (keys %$o) {
         $data->{$obj->{address}+$slice*$stepsize}->{$k} = $o->{$k};
       }
-    } while (!$once && defined $obj->{repeat} && ++$slice < $obj->{repeat});
+    }} while (!$once && defined $obj->{repeat} && ++$slice < $obj->{repeat});
   }
 }