"win32/config.vc64",
"win32/config.ce",
"configure.com",
+ "Porting/config.sh",
);
sub read_file {
for my $cfg (@CFG) {
unless (exists $MANIFEST{$cfg}) {
- print "[skipping not-expected '$cfg']\n";
+ print STDERR "[skipping not-expected '$cfg']\n";
next;
}
my %cfg;
read_file($cfg,
sub {
- return if /^\#/ || /^\s*$/;
+ return if /^\#/ || /^\s*$/ || /^\:/;
if ($cfg eq 'configure.com') {
s/(\s*!.*|\s*)$//; # remove trailing comments or whitespace
return if ! /^\$\s+WC "(\w+)='(.*)'"$/;