diff --git a/everything_cpanfile b/everything_cpanfile
index 1641684..b68ffbe 100644
--- a/everything_cpanfile
+++ b/everything_cpanfile
@@ -1186,7 +1186,7 @@ requires 'Test::Stochastic' => 0; # A/AM/AMAHABAL/Test-Stochastic-0.03.tar.gz
 requires 'DB::Appgen' => 0; # A/AM/AMALTSEV/DB-Appgen-1.02.tar.gz
 requires 'Spreadsheet::Write' => 0; # A/AM/AMALTSEV/Spreadsheet-Write-0.03.tar.gz
 requires 'XAO::DO::Data::Customer' => 0; # A/AM/AMALTSEV/XAO-FS-1.16.tar.gz
-requires 'Apache::XAO' => 0; # A/AM/AMALTSEV/XAO-Web-1.47.tar.gz
+#requires 'Apache::XAO' => 0; # A/AM/AMALTSEV/XAO-Web-1.47.tar.gz
 requires 'HTML::EP::Wizard' => 0; # A/AM/AMAR/Wizard-0.1003.tar.gz
 requires 'Wizard::Examples::LDAP' => 0; # A/AM/AMAR/Wizard-LDAP-0.1004.tar.gz
 requires 'Wizard::SaveAble::LDAP' => 0; # A/AM/AMAR/Wizard-LDAP-0.1006.tar.gz
diff --git a/lib/Module.pm b/lib/Module.pm
index 011bbfd..589b86e 100755
--- a/lib/Module.pm
+++ b/lib/Module.pm
@@ -109,7 +109,7 @@ sub get_deps {
 	warn "Failed to get deps for $module: $?" unless $ret;
 	last if ($ret);
     }
-    die "FATAL: no deps for $module" unless $ret;
+    die "FATAL: no deps for $module: $out" unless $ret;
 
 
     my $deps = [map {Module->new_module($_)} grep {!_is_core($_)} grep {defined $_ && $_ !~ /^\s*$/} split($/, $out)];
diff --git a/modcache.stor b/modcache.stor
index 69a0990..a32e178 100644
Binary files a/modcache.stor and b/modcache.stor differ
diff --git a/run.pl b/run.pl
index f1dcb7b..207eb99 100755
--- a/run.pl
+++ b/run.pl
@@ -21,12 +21,13 @@ my $opt_module;
 my $opt_help;
 my $opt_jobstor='';
 my $opt_pass=1;
-
+my $opt_depsonly;
 GetOptions ("module=s" => \$opt_module,
             "cpanfile=s"   => \$opt_cpanfile,      # string
             "perlbrew_env=s" => \$TestCpanInc::perlbrew_env,
             "jobstor=s" => \$opt_jobstor,
             "pass=n" => \$opt_pass,
+	    "depsonly" => \$opt_depsonly,
             "help"  => \$opt_help);   # flagV
 
 if ((!$opt_module && !$opt_cpanfile) || ($opt_module && $opt_cpanfile) || $opt_help) {
@@ -54,7 +55,8 @@ if (!-e $opt_jobstor) {
     print "Building dep list sorry, this'll take a while\n";
     for my $mtt (@mods_to_test) {
         my $mod = Module->new_module($mtt);
-        push @modules, map {$_->name} uniq TestCpanInc::dep_order($mod);
+        eval {push @modules, map {$_->name} uniq TestCpanInc::dep_order($mod)};
+	warn $@ if $@;
     }
     print "\n";
     @modules = uniq(@modules);
@@ -65,12 +67,14 @@ if (!-e $opt_jobstor) {
 }
 
 sub __save_cache {
-    if ($opt_jobstor) {
+    if ($opt_jobstor && !$opt_depsonly) {
         store {modules => \@modules, jobstatus => \%jobstatus}, $opt_jobstor;
     }
 };
 END {__save_cache};
 
+exit if $opt_depsonly;
+
 for my $mod (@modules) {
     print "Testing $mod\n";
     my $status = $jobstatus{$mod}{status} // "";