# are used without permission. This program is not endorsed or
# sponsored by Three Rings.
+BEGIN { unshift @INC, qw(.) }
+
use strict (qw(vars));
use DBI;
use Commods;
next if $h =~ m/^nocommods/;
}
next if $sfn =~ m/source-info/ && $h =~ m/^ocean\b/;
- next if $h =~ m/^client|^vessels|^shot\b/;
+ next if $h =~ m/^client|^vessels|^shot\b|^commodclasses/;
print $df $_, "\n" or die $!;
}