From: Maps <maps@ikf>
Date: Wed, 15 Apr 2015 13:16:01 +0000 (+0200)
Subject: bug fixes to acquisition time routine
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=4d216cdd1ad22738d1eb4523145e61b1cf3414bf;p=coral.git

bug fixes to acquisition time routine
---

diff --git a/user_interface/pmt_ro.pm b/user_interface/pmt_ro.pm
index 9e9ca1a..b0d6fcc 100644
--- a/user_interface/pmt_ro.pm
+++ b/user_interface/pmt_ro.pm
@@ -335,17 +335,19 @@ sub acquisition_time {
   #if value is given, write acquisition time
     for my $try (1..$tries) {
 #     print "try: $try\n";
+      my $success = 0;
       eval {
         my $is = $self->read_register(regName => "acquisition_time");
-        die "could not read acquisition time setting\n";
+        die "could not read acquisition time setting\n" unless(defined($is));
         if ($is eq $value) {
-          last;
+          $success = 1;
         } else {
           $self->write_register(regName => "acquisition_time", value => $value);
         }
       };
+      last if $success;
       if ($@) {
-        warn "sub acquisition time had some problems:\n";
+        warn "sub acquisition_time had some problems:\n";
         warn "(try $try of $tries)\n";
         warn $@;
         warn "trying again\n";