[OSSTEST PATCH 19/82] host allocation: Executive: Honour $xparams{InfraPriority}

[Ian Jackson <iwj@xxxxxxxxxxxxxx>]

From: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>

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@xxxxxxxxxxxxx>
---
 Osstest/Executive.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Osstest/Executive.pm b/Osstest/Executive.pm
index 5d71d08c..703f3d85 100644
--- 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) {
-- 
2.20.1