sub { });
for_commods(sub {
my ($commod)= @_;
- my $srcs= $commods{$commod};
+ my $srcs= $commods{$commod}{Srcs};
compare_sources_one($srcs, "commodity $commod");
});
}
sub main__island () {
my $ocean= get_ocean();
- parse_info_clientside();
- get_arches_islands_pctb($ocean);
+ parse_info_clientside() if $ENV{'YPPSC_YARRG_YARRG'};
+ get_arches_islands_pctb($ocean) if $pctb;
for_islands($ocean,
sub {