From bff30350659c02ca9fff5b43683b85cbaa0846a2 Mon Sep 17 00:00:00 2001
From: Hadaq Hades <hadaq@lxhadesdaq>
Date: Fri, 15 Nov 2019 17:22:38 +0100
Subject: [PATCH] fix multi-digit command for MUX chips

---
 tools/dac_program.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/dac_program.pl b/tools/dac_program.pl
index b35319d..12dfa76 100755
--- a/tools/dac_program.pl
+++ b/tools/dac_program.pl
@@ -43,7 +43,7 @@ while (my $a = <$fh>) {
 #     print $reference."\n";
     }
  
-  if(my ($board,$chain,$chainlen,$dac,$chan,$cmd,$val) = $a =~ /^\s*(\w\w\w\w)\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\w)\s+(\w+)/) {
+  if(my ($board,$chain,$chainlen,$dac,$chan,$cmd,$val) = $a =~ /^\s*(\w\w\w\w)\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\w+)\s+(\w+)/) {
     $val   = hex(substr($val,2)) if (substr($val,0,2) eq "0x");
     $chain = hex(substr($chain,2)) if (substr($chain,0,2) eq "0x");
     $cmd   = hex($cmd);
-- 
2.43.0