few corrections

diff --git a/dmon/code/Dmon.pm b/dmon/code/Dmon.pm
index 4052662e043afea9c087678b6db751b7d7c61ae8..27b8500a8c9ac67abc88ffdc4d62dd3f2601f9a8 100644 (file)
--- 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 f1d995925453af38ce71a1b12d80fc9e67c2cb5a..860ad66b7bbc0c0ed82019587782d7960fab5893 100755 (executable)
--- 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'