Gate parsing master-info-v* on YPPSC_YARRG_YARRG rather than YPPSC_YARRG_DICT_UPDATE...

diff --git a/yarrg/Commods.pm b/yarrg/Commods.pm
index 83d308e7b783337f59acb26ac73df837baafdc4f..b58471ce43a9370a74aa8a6ec8eb11f51822ff62 100644 (file)
--- a/yarrg/Commods.pm
+++ b/yarrg/Commods.pm
@@ -180,8 +180,6 @@ sub parse_info1 ($$$) {
 }
 
 sub parse_info_clientside () {
-    my $yarrg= $ENV{'YPPSC_YARRG_DICT_UPDATE'};
-    return unless $yarrg;
     my $master= fetch_with_rsync("info-v$masterinfoversion");
     parse_info1($master,'s',1);
     parse_info1('_local-info.txt','s',1);

diff --git a/yarrg/database-info-fetch b/yarrg/database-info-fetch
index 07577260a178a1cac2716bc3e5aef2ef9f06342b..90db002aa4bddd79dd320c61eabaafece677e577 100755 (executable)
--- a/yarrg/database-info-fetch
+++ b/yarrg/database-info-fetch
@@ -167,7 +167,7 @@ sub main__comparesources () {
 sub main__island () {
     my $ocean= get_ocean();
     
-    parse_info_clientside();
+    parse_info_clientside() if $ENV{'YPPSC_YARRG_YARRG'};
     get_arches_islands_pctb($ocean) if $pctb;
 
     for_islands($ocean,