ts-hosts-allocate-Executive: pass $plan to hid_find_possibilities

We are going to want this to implement the new diverse-CLASS hostflag.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
CC: Wei Liu <wei.liu2@citrix.com>

diff --git a/ts-hosts-allocate-Executive b/ts-hosts-allocate-Executive
index 451c6fc8fbe288e657175716f9b1c42802a6137e..6a03d32551ecc0fb24595885746b5ccb131133b9 100755 (executable)
--- a/ts-hosts-allocate-Executive
+++ b/ts-hosts-allocate-Executive
@@ -272,8 +272,8 @@ sub compute_hids () {
     }
 }
 
-sub hid_find_possibilities ($) {
-    my ($hid) = @_;
+sub hid_find_possibilities ($$) {
+    my ($hid, $plan) = @_;
 
     delete $hid->{Candidates};
 
@@ -647,7 +647,7 @@ sub attempt_allocation {
 
     foreach my $hid (@hids) {
        delete $hid->{Allocated};
-       hid_find_possibilities($hid);
+       hid_find_possibilities($hid, $plan);
     }
     optimally_order_hids();