When this assertion fails, dump the troublesome harness revision and
requested host flags, too.
Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
Osstest/JobDB/Executive.pm | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/Osstest/JobDB/Executive.pm b/Osstest/JobDB/Executive.pm
index ba51bdf..1ec947e 100644
--- a/Osstest/JobDB/Executive.pm
+++ b/Osstest/JobDB/Executive.pm
@@ -127,14 +127,17 @@ sub host_check_allocated ($$) { #method
$ho->{SharedMaybeOthers}=
$ho->{Shared} &&
$ho->{Shared}{State} eq 'ready';
+ my $harness = get_harness_rev();
+ my @flags = get_hostflags($ho->{Ident});
$ho->{SharedReady}=
$ho->{SharedMaybeOthers} &&
- !! (grep { $_." ".get_harness_rev() eq "share-".$ho->{Shared}{Type} }
- get_hostflags($ho->{Ident}));
+ !! (grep { $_." ".$harness eq "share-".$ho->{Shared}{Type} }
+ @flags);
$ho->{SharedOthers}=
$ho->{Shared} ? $ho->{Shared}{Others} : 0;
- die Dumper($ho)." ?" if $ho->{SharedOthers} && !$ho->{SharedReady};
+ die Dumper($ho, $harness, \@flags)." ?"
+ if $ho->{SharedOthers} && !$ho->{SharedReady};
}
sub jobdb_postfork ($) { #method
--
1.7.10.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
http://lists.xen.org/xen-devel
