Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
sg-report-flight | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
diff --git a/sg-report-flight b/sg-report-flight
index d2aff58..2adc8a8 100755
--- a/sg-report-flight
+++ b/sg-report-flight
@@ -541,16 +541,21 @@ END
my $text= (sprintf" %-${jl}s %2s %-${sl}s %-${rl}s ",
$j->{job}, $s->{stepno}, $s->{testid}, $s->{status});
- $text .= "in $failv->{Flight} " if $heisenflightp;
- $text .= $failv->{Summary} if defined $failv->{Summary};
+ my $xstatus = '';
+ $xstatus .= "in $failv->{Flight} " if $heisenflightp;
+ $xstatus .= $failv->{Summary} if defined $failv->{Summary};
+ $text .= $xstatus;
$text =~ s/ *$//;
while (length($text) > $cw) { last unless $text =~ s/(.* ) /$1/; }
- $notsucceeds{$cat} .= $text."\n";
+ push @{ $notsucceeds{$cat} }, [ "$s->{status} $xstatus", $text ];
}
foreach my $cat (sort keys %notsucceeds) {
$cat =~ m/^\w+ / or die;
- print "\n$'\n$notsucceeds{$cat}" or die $!;
+ print "\n$'\n" or die $!;
+ foreach (sort { $a->[0] cmp $b->[0] } @{ $notsucceeds{$cat} }) {
+ print $_->[1], "\n" or die $!;
+ }
}
if (!%{ $r->{Failures} }) {
--
1.7.10.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
http://lists.xen.org/xen-devel
