From 4d216cdd1ad22738d1eb4523145e61b1cf3414bf Mon Sep 17 00:00:00 2001
From: Maps <maps@ikf>
Date: Wed, 15 Apr 2015 15:16:01 +0200
Subject: [PATCH] bug fixes to acquisition time routine

---
 user_interface/pmt_ro.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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";
-- 
2.43.0