[Midnightbsd-cvs] mports: magus.pl: Add support for skip subresults.
ctriv at midnightbsd.org
ctriv at midnightbsd.org
Fri Nov 2 16:06:49 EDT 2007
Log Message:
-----------
Add support for skip subresults.
Modified Files:
--------------
mports/Tools/magus/slave:
magus.pl (r1.7 -> r1.8)
-------------- next part --------------
Index: magus.pl
===================================================================
RCS file: /home/cvs/mports/Tools/magus/slave/magus.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -LTools/magus/slave/magus.pl -LTools/magus/slave/magus.pl -u -r1.7 -r1.8
--- Tools/magus/slave/magus.pl
+++ Tools/magus/slave/magus.pl
@@ -306,19 +306,12 @@
arch => $Magus::Machine->arch,
});
- foreach my $sr (@{$results->{'warnings'}}) {
- $res->add_to_subresults({
- type => 'warning',
- %$sr
- });
- }
-
- foreach my $sr (@{$results->{'errors'}}) {
- $res->add_to_subresults({
- type => 'error',
- %$sr
- });
- }
+ foreach my $type (qw(skip warning error)) {
+ foreach my $sr (@{$results->{$type . 's'}}) {
+ $sr->{type} = $type;
+ $res->add_to_subresults($sr);
+ }
+ }
if ($results->{log}) {
$res->add_to_logs($results->{log});
More information about the Midnightbsd-cvs
mailing list