From: Hades DAQ Date: Mon, 5 Nov 2018 10:16:07 +0000 (+0100) Subject: few corrections X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=78dba03956c40ed39dc4db4399850967645239f4;p=daqtools.git few corrections --- diff --git a/dmon/code/Dmon.pm b/dmon/code/Dmon.pm index 4052662..27b8500 100644 --- a/dmon/code/Dmon.pm +++ b/dmon/code/Dmon.pm @@ -309,7 +309,7 @@ sub PadiwaSendCmd { if (trb_strerror() ne "No Error") { usleep 3E4; if($errcnt >= 12) { - return "SPI still blocked\n"; + return {error => "SPI still blocked\n"}; } elsif($errcnt++ >= 10) { trb_register_read($board,0xd412); diff --git a/tools/spi_slave.pl b/tools/spi_slave.pl index f1d9959..860ad66 100755 --- a/tools/spi_slave.pl +++ b/tools/spi_slave.pl @@ -1,4 +1,6 @@ #!/usr/bin/perl -w + +#use lib '/home/hadaq/trbsoft/daqtools/perllibs/'; use warnings; use FileHandle; use Time::HiRes qw( usleep ); @@ -148,7 +150,7 @@ commands: dumpcfgflash Dump content of configuration flash. Pipe output to file writecfgflash Write content of configuration flash. options: \$filename eraseuserflash erases the user flash - dumpuserflas Dump content of user flash. Pipe output to file + dumpuserflash Dump content of user flash. Pipe output to file writecfgflash Write content of user flash. options: \$filename memtoflash Saves memory content in the flash so that it is restored after boot options: -range , format like '0x00..0x0F,0x23'