From 0e0de455b99b0543128005437b8c931b348edb75 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 10 Sep 2009 17:03:22 +0100
Subject: [PATCH] Gate parsing master-info-v* on YPPSC_YARRG_YARRG rather than
 YPPSC_YARRG_DICT_UPDATE so --dict-no-update works better

---
 yarrg/Commods.pm          | 2 --
 yarrg/database-info-fetch | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/yarrg/Commods.pm b/yarrg/Commods.pm
index 83d308e..b58471c 100644
--- 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 0757726..90db002 100755
--- 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,
-- 
2.30.2