glyphinator: catch error that some users were seeing running out of e…

…xcavators
mjharwood · Jul 6, 2011 · 7343a66 · 7343a66
1 parent b24d34d
commit 7343a66
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/examples/glyphinator.pl b/examples/glyphinator.pl
@@ -706,7 +706,7 @@ sub send_excavators {
 
         my $launch_count;
         my $built_count = 0;
-        if ($status->{ready}{$planet}) {
+        if ($status->{ready}{$planet} and @{$status->{ready}{$planet}}) {
             verbose("Prepping excavators on $planet\n");
             my $port = $status->{spaceports}{$planet};
             my $originally_docked = @{$status->{ready}{$planet}};
@@ -753,6 +753,12 @@ sub send_excavators {
                         # Get the next available excavator
                         my $ex = $status->{ready}{$planet}[0];
 
+                        unless (defined $ex) {
+                            diag("No excavators left when we still had destinations, possible bug?\n");
+                            $all_done = 1;
+                            last;
+                        }
+
                         # Only try each destination once
                         $skip{$dest_name}++;