+sub loadfoundries () {
+ foreach my $path (@rulespath) {
+ my $p = "$path/foundries";
+ my $f = new IO::File $p;
+ if (!$f) {
+ die "$p $!" unless $!==&ENOENT;
+ print $reportfh "foundries: none in $p\n" or die $! if $verbose;
+ next;
+ }
+ while (<$f>) {
+ s/^\s*//; s/\s+$//;
+ next if m/^\#/;
+ m/^(\w+)\s+(\w+)$/ or die;
+ my $k = lc $1;
+ next if exists $foundrymap{$k};
+ $foundrymap{$k}=$2;
+ }
+ $f->error and die $!;
+ reportloaded('foundries: loaded ',$p);
+ }
+ die "no foundry maps\n" unless %foundrymap;
+}