After overheat

.gitignore

@@ -1,4 +1,4 @@
 cache.stor
 *.swp
-logs/*.log
+logs/*
 #*.stor

disableapache.pl

@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+
+use 5.24.0;
+
+use Data::Dumper;
+use Storable;
+
+my $data = retrieve $ARGV[0];
+
+for my $mod ($data->{modules}->@*) {
+	if ($mod =~ /Apache/ && !$data->{jobstatus}{$mod}{tested}) {
+		$data->{jobstatus}{$mod}={tested => 3, status => "apache failure"};
+	}
+}
+
+store $data, $ARGV[0].'.new';

showdeps.pl

@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+
+use 5.24.0;
+
+use Data::Dumper;
+use Storable;
+use lib './lib';
+use Dist;
+use Module;
+
+my $cache =retrieve "modcache.stor";
+
+my $dist = $Dist::mod_to_dist{$ARGV[0]} || $ARGV[0];
+
+if (my $mod = $cache->{$dist}) {
+	$mod->print_deps();
+}