}
sub datadir () {
+ my $edir= $ENV{'YARRG_DATA_DIR'};
+ return $edir if defined $edir;
my $dir= dotperllibdir();
if (stat "$dir/DATA") {
return "$dir/DATA";
sub ocean_list () {
my $datadir= datadir();
if (!@ocean_list) {
- my $fn= "$datadir/master-info.txt";
+ my $fn= "$datadir/source-info.txt";
my $f= new IO::File $fn or die "$fn $!";
my @r;
while (<$f>) {