fix deployment zone error when there are no blocks yet, RT#78339, github-pr#66, thank...

diff --git a/FS/FS/deploy_zone.pm b/FS/FS/deploy_zone.pm
index da4f3d7..6ad355f 100644 (file)
--- a/FS/FS/deploy_zone.pm
+++ b/FS/FS/deploy_zone.pm
@@ -418,6 +418,7 @@ sub process_block_lookup {
     die $response->status_line unless $response->is_success;
     $data = decode_json($response->content);
     die $data->{error}{message} if $data->{error};
+    last unless scalar @{$data->{features}}; #Nothing to insert
 
     foreach my $feature (@{ $data->{features} }) {
       my $geoid = $feature->{attributes}{GEOID}; # the prize