return $dir;
}
-my datadir () {
+sub datadir () {
my $dir= sourcebasedir();
if (stat "$dir/DATA") {
return "$dir/DATA";
my @ocean_list;
sub ocean_list () {
+ my $datadir= datadir();
if (!@ocean_list) {
my $fn= "$datadir/master-info.txt";
my $f= new IO::File $fn or die $!;