7 my $class = ref($proto) || $proto;
11 my $options = \
${$self->{OPTIONS
}};
12 my $output = \
${$self->{OUTPUT
}};
13 my $modules = \
%{$self->{MODULES
}};
17 my $module_file = shift;
19 $module_file =~ s/^\.\///;
21 if($$options->progress) {
22 $$output->progress("$module_file");
28 open(IN
, "< $module_file");
31 s/^\s*?(.*?)\s*$/$1/; # remove whitespace at begining and end of line
32 s/^(.*?)\s*#.*$/$1/; # remove comments
33 /^$/ && next; # skip empty lines
42 $$modules{$allowed_dir}{$spec_file}++;