Change `target_var' to set `IDENT_V' rather than just V. For
compatibility with older flights and older flight construction,
look for plain V too when looking up the variable.
And, we now look at all_host_V before V. This has no functional
change with existing flights, because existing flights only have
all_host_suite
all_host_di_version
all_host_os
and we never set the corresponding V form of those variables.
So with existing flights the only functional change is a change to
synth runvars, to add HOST_ to the name.
Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
sub target_var_prefix ($) {
my ($ho) = @_;
- if (exists $ho->{Guest}) { return $ho->{Guest}.'_'; }
- return '';
+ return (exists $ho->{Guest} ? $ho->{Guest} : $ho->{Ident}).'_';
}
sub target_var ($$) {
push @prefixes, 'all_guest_';
} else {
push @prefixes, 'all_host_';
+ push @prefixes, '';
}
foreach my $prefix (@prefixes) {
my $v = $r{ $prefix.$vn };