ts-hosts-allocate-Executive: crash if no hostflags specified

Rather than picking a machine at random.

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

diff --git a/ts-hosts-allocate-Executive b/ts-hosts-allocate-Executive
index 75834eb00efbeae9010e6d8bc8e12821cc0283ac..05046e32b9282003c448884e800f6423b4d58e45 100755 (executable)
--- a/ts-hosts-allocate-Executive
+++ b/ts-hosts-allocate-Executive
@@ -204,6 +204,7 @@ sub compute_hids () {
             print DEBUG "HID $ident OVERRIDE $hid->{OverrideUse}\n";
         }
         my @flags= get_hostflags($ident);
+       die "no hostflags?!" unless @flags;
         print DEBUG "HID $ident FLAGS @flags\n";
         $hid->{Ident}= $ident;
         my %flags;