-sub main__allowablecommods ($$) {
- my ($ocean,$island) = @_;
- parse_masters();
- my $arches= $oceans{$ocean};
- if (!$arches) { print "unknown ocean\n"; exit 1; }
- my $found= 0;
- foreach my $islands (values %$arches) {
- my $sources= $islands->{$island};
- next unless $sources;
- die if $found;
- $found= $sources;
- }
- if (!$found) { print "unknown island\n"; exit 1; }
-
- print "\n";
- foreach my $commod (sort keys %commods) {
- print "$commod\n";
- }
- STDOUT->error and die $!;
- close STDOUT or die $!;
-}
-