diff -r 6aaf7117423d -r 052fb1053b2a scripts/report --- a/scripts/report Wed Sep 23 22:31:47 2015 +0200 +++ b/scripts/report Thu Nov 05 18:15:14 2015 +0100 @@ -2,12 +2,22 @@ use 5.14.0; use strict; use warnings; -use Template; +use File::Find; use List::Util qw(max); my %fail; -foreach my $file (glob "out*/log.*") { +my @files = do { + my @r; + find(sub { + -f and /^log\./ or return; + push @r, $File::Find::name; + }, @ARGV ? @ARGV : glob("out*")); + @r; +}; + + +foreach my $file (@files) { my ($name, $platform) = $file =~ /out-?(.*?)\/log\.(.*)/; my ($os) = $platform =~ /(^.*?)-/; $_ = do { local @ARGV = $file; local $/ = undef; <> };