better handling of no-answer in case of broadcast address

diff --git a/scripts/Mimosis.pm b/scripts/Mimosis.pm
index 1ab8731d76a20978c0633b690cccf39bb37bb467..ef9fc56bcd006f437cfc750d6895981e5ffbfe9b 100644 (file)
--- a/scripts/Mimosis.pm
+++ b/scripts/Mimosis.pm
@@ -49,7 +49,7 @@ sub mimosis_i2c_command {
         my $reg_return = trb_register_read( $fpga, 0xde04 );
 
         # print Dumper $reg_return;
-        return $reg_return->{$fpga} & 0xffff;
+        return ($reg_return->{$fpga}//0) & 0xffff;
     }
 }
 

diff --git a/scripts/basicsettings.pl b/scripts/basicsettings.pl
index f48f910c046c05419aa7556a3aad9ddc186240c9..6eeeb81a790c132550fa0d76e3b1eb497a74b92c 100755 (executable)
--- a/scripts/basicsettings.pl
+++ b/scripts/basicsettings.pl
@@ -52,8 +52,8 @@ foreach my $a (@config) {
       usleep(1000);
       unless(($val & 0xff) == @$a[1])
         {
-          my $reg_return = trb_register_read $fpga, 0xde04;
-          my $status = ($reg_return->{$fpga} >> 16 ) & 0xff;
+          my $reg_return = trb_register_read $fpga, 0xde04 ;
+          my $status = (($reg_return->{$fpga}//0) >> 16 ) & 0xff;
           printf "%x %x    Status: %x\n", @$a[0], $val, $status;
         }
     }