Harden meta checker against failed content fetches

Raku · Jul 29, 2018 · fd967f9 · fd967f9
1 parent 9e1db1d
commit fd967f9
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lib/ModulesPerl6/DbBuilder/Dist/PostProcessor/p30METAChecker.pm b/lib/ModulesPerl6/DbBuilder/Dist/PostProcessor/p30METAChecker.pm
@@ -86,8 +86,10 @@ sub _check_todo_problem_readme {
     return grep $_->{problem} =~ /\bREADME\b/, ($dist->{problems} || [])->@*
         if $readme->{error};
 
-    return unless $readme->{content} =~ /\b(panda|ufo)\b/;
     problem 'README mentions discouraged tools (panda or ufo)', 2
+        if ($readme->{content}||'') =~ /\b(panda|ufo)\b/;
+
+    return
 }
 
 sub _check_meta_url {
@@ -120,8 +122,10 @@ sub _check_todo_problem_travis_yml {
     return grep $_->{problem} =~ /\bTravis-CI\b/, ($dist->{problems} || [])->@*
         if $travisyml->{error};
 
-    return unless $travisyml->{content} =~ /\brakudobrew\s+build[- ]panda\b/;
     problem 'Travis-CI config asks rakudobrew to build panda.', 3
+        if ($travisyml->{content}||'') =~ /\brakudobrew\s+build[- ]panda\b/;
+
+    return
 }