JobDB-Standalone.tcl: Fix read-runvar

This fix the error bellow, when the runvar exist:
can't read "runvarinfo()": no such element in array
    while executing
"set val $runvarinfo($val)"
    invoked from within
"osstestdb eval {
        SELECT val FROM runvars
         WHERE flight = $flight
           AND job = $job
           AND name = $name
    } runvarinfo {
        se..."
    (procedure "jobdb::read-runvar" line 3)
    invoked from within
"jobdb::read-runvar $flight $job all_host_os"
    (procedure "run-job" line 13)
    invoked from within
"run-job $job"
    (file "./sg-run-job" line 767)

Signed-off-by: Anthony PERARD <anthony.perard@citrix.com>
Acked-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/tcl/JobDB-Standalone.tcl b/tcl/JobDB-Standalone.tcl
index 09eac6e43c1f294db7d47100fedb444c7ff30dd1..306e855582d9d8085d0e3de4fc30759c348ddfa5 100644 (file)
--- a/tcl/JobDB-Standalone.tcl
+++ b/tcl/JobDB-Standalone.tcl
@@ -52,7 +52,7 @@ proc read-runvar {flight job name {val {}}} {
            AND job = $job
            AND name = $name
     } runvarinfo {
-       set val $runvarinfo($val)
+       set val $runvarinfo(val)
     }
     return $val
 }