chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Do queries and get basic debugging-style results
[ypp-sc-tools.main.git]
/
yarrg
/
database-info-fetch
diff --git
a/yarrg/database-info-fetch
b/yarrg/database-info-fetch
index 1e789b88fcb389686675f07393e1d0fab7a48ac1..90db002aa4bddd79dd320c61eabaafece677e577 100755
(executable)
--- a/
yarrg/database-info-fetch
+++ b/
yarrg/database-info-fetch
@@
-159,7
+159,7
@@
sub main__comparesources () {
sub { });
for_commods(sub {
my ($commod)= @_;
sub { });
for_commods(sub {
my ($commod)= @_;
- my $srcs= $commods{$commod};
+ my $srcs= $commods{$commod}
{Srcs}
;
compare_sources_one($srcs, "commodity $commod");
});
}
compare_sources_one($srcs, "commodity $commod");
});
}
@@
-167,8
+167,8
@@
sub main__comparesources () {
sub main__island () {
my $ocean= get_ocean();
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 {
for_islands($ocean,
sub {