fix parantheses

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 69ac8b01ef3144b0549d561f789144c372c8b669..c4bea9e2a327e0f8174f32d05f63a638461f4241 100755 (executable)
--- 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});
   }
 }