host allocation: Executive: Honour $xparams{InfraPriority}

And pass it to ms-queuedaemon.  No functional change with existing
callers since no-one sets this yet.

Forthcoming test host sharing machinery uses this.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/Osstest/Executive.pm b/Osstest/Executive.pm
index 5d71d08ca9bb0af84776b8600984f590bbd7d004..703f3d850cf1673151660c8b5db2258cf5816e10 100644 (file)
--- a/Osstest/Executive.pm
+++ b/Osstest/Executive.pm
@@ -851,6 +851,7 @@ sub alloc_resources {
                $set_info->('feature-noalloc', 1);
                $set_info->('wait-start',$waitstart);
                $set_info->('wait-start-adjust',$xparams{WaitStartAdjust});
+               $set_info->('infra-priority',$xparams{InfraPriority});
 
                 my $jobinfo= $xparams{JobInfo};
                 if (!defined $jobinfo and defined $flight and defined $job) {