From: Anthony PERARD <anthony.perard@citrix.com>
Date: Wed, 15 Nov 2017 18:56:01 +0000 (+0000)
Subject: JobDB-Standalone.tcl: Fix read-runvar
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=ff5ee4fb7f5585f41e9478db9834dc47be112d8b;p=people%2Faperard%2Fosstest.git

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 09eac6e4..306e8555 100644
--- 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
 }