Do not crash if --upload-yarrg is specified but not --upload-pctb

diff --git a/yarrg/database-info-fetch b/yarrg/database-info-fetch
index 5e0576095a0b23ac7aa837a1d91ff72132f0c3c2..07577260a178a1cac2716bc3e5aef2ef9f06342b 100755 (executable)
--- a/yarrg/database-info-fetch
+++ b/yarrg/database-info-fetch
@@ -168,7 +168,7 @@ sub main__island () {
     my $ocean= get_ocean();
     
     parse_info_clientside();
-    get_arches_islands_pctb($ocean);
+    get_arches_islands_pctb($ocean) if $pctb;
 
     for_islands($ocean,
                sub {