From 64c14b9ddf25ad3a26fc71b306bad9cea75d7033 Mon Sep 17 00:00:00 2001
From: ysth <sthoenna@gmail.com>
Date: Sun, 7 Oct 2012 16:52:18 -0700
Subject: [PATCH] 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

---
 digger.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/digger.pl b/digger.pl
index b3c6c77..4a347b2 100755
--- 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) {