sg-report-flight: do not write to MRO for recursive flights, so we avoid writing...

diff --git a/sg-report-flight b/sg-report-flight
index cdf307626b7bd3ad6824c233031ca342c125e87c..82903ada4137ec6cc94e20443cc754a4ff74022b 100755 (executable)
--- a/sg-report-flight
+++ b/sg-report-flight
@@ -713,19 +713,21 @@ END
               scalar(@failures), "\n";
     }
 
-    if (!@failures) {
-        print MRO "tolerable\nperfect\n" or die $!;
-         $fi->{Overall}.= "Perfect :-)\n";
-    } elsif (grep { $_->{Blocker} eq 'regression' } @failures) {
-        $fi->{OutcomeSummary}= "regressions - $fi->{OutcomeSummary}";
-        $fi->{Overall}.= "Regressions :-(\n";
-    } elsif (!grep { $_->{Blocker} } @failures) {
-        $fi->{OutcomeSummary}= "tolerable $fi->{OutcomeSummary}";
-        print MRO "tolerable\n" or die $!
-            unless defined $heisen_why;
-        $fi->{Overall}.= "Failures :-/ but no regressions.\n";
-    } else {
-        $fi->{Overall}.= "Failures and problems with tests :-(\n";
+    if (!$heisen_why) {
+       if (!@failures) {
+           print MRO "tolerable\nperfect\n" or die $!;
+           $fi->{Overall}.= "Perfect :-)\n";
+       } elsif (grep { $_->{Blocker} eq 'regression' } @failures) {
+           $fi->{OutcomeSummary}= "regressions - $fi->{OutcomeSummary}";
+           $fi->{Overall}.= "Regressions :-(\n";
+       } elsif (!grep { $_->{Blocker} } @failures) {
+           $fi->{OutcomeSummary}= "tolerable $fi->{OutcomeSummary}";
+           print MRO "tolerable\n" or die $!
+               unless defined $heisen_why;
+           $fi->{Overall}.= "Failures :-/ but no regressions.\n";
+       } else {
+           $fi->{Overall}.= "Failures and problems with tests :-(\n";
+       }
     }
 
     return @failures;