$meta->{results} = \@full_results if scalar @full_results;
DumpFile "meta.yml", $meta;
for (<*>) {
- unlink $_ unless $_ eq 'in' || $_ eq 'meta.yml';
+ unlink $_ unless $_ eq 'in' || $_ eq 'meta.yml' || ($_ eq 'compile-error' && -s);
}
chdir '../..';
mkdir 'log' unless -d 'log';
my $logmeta = LoadFile 'log/meta.yml';
$logmeta->{last}++;
rename $dir, 'log/' . $logmeta->{last};
- generate 'log/' . $logmeta->{last} . '/index.htm';
+ generate 'log/' . $logmeta->{last} . '/index.html';
DumpFile 'log/meta.yml', $logmeta;
undef $logmetafh;
generate 'log/index.html'