From 3183cf5d677b669e1210c4c18db00c4a3a207040 Mon Sep 17 00:00:00 2001
From: Andreas Neiser <neiser@kph.uni-mainz.de>
Date: Wed, 17 Jun 2015 15:57:07 +0200
Subject: [PATCH] adc.pl: Fix some bug adc_init when reduced number of ADCs
 present

---
 tools/adc.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tools/adc.pl b/tools/adc.pl
index ed0b486..501b385 100755
--- a/tools/adc.pl
+++ b/tools/adc.pl
@@ -146,6 +146,7 @@ sub adc_init {
     &set_optimal_phases;
     print ">>> Check ADCs again...\n";
     my @good = map {$_->[0]} &adc_testall; # no phases given, so single element arrays expected
+    @good = grep { defined $_ } @good; # not all adcs might have been tested
     #print Dumper(\@good);
     # check if all ADCs are good
     if (@good == grep { $_ } @good) {
@@ -496,6 +497,7 @@ sub set_optimal_phases {
     @adcs = ($adc);             # used by adc_phase
     adc_phase($opt_phase);
     #printf("Set ADC %02d to optimal phase of %03d degrees\n", $adc, $opt_phase*60);
+    @adcs = @old_adcs;
   }
 
   @adcs = @old_adcs;
-- 
2.43.0