[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