Tidy up testFailures script slighlty

2020-04-20 11:31:45 -05:00
parent 91c18c32d4
commit be061e1084
1 changed files with 3 additions and 1 deletions
@@ -24,8 +24,10 @@ die "Usage: testFailures.pl .tests-failed\n"

 open FAILURES, '<', shift or
    exit 0;
+my @failures = <FAILURES>;
+close FAILURES;

 print "\nTest failures were reported in:\n",
-    map {"    $_\n"} <FAILURES>;
+    (map {"    $_"} @failures), "\n";

 exit 1;