digger: bail out early even when there's a planet with no arch min (e…

….g. space station) and all arch mins busy - unless noaction specified
popiel · Oct 7, 2012 · 64c14b9 · 64c14b9
1 parent 818e66c
commit 64c14b9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/digger.pl b/digger.pl
@@ -48,7 +48,7 @@
 
 emit("Looking at bodies ".join(', ', @body_names));
 
-exit(0) unless grep { !($_->{work}{end}) || Client::parse_time($_->{work}{end}) < time() } values(%arches);
+exit(0) unless $noaction || grep { $_ && !($_->{work}{end} && Client::parse_time($_->{work}{end}) >= time()) } values(%arches);
 
 my %glyphs;
 for my $body_id (@body_ids) {