--- 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; <> };