+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 $!;
+}
+